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TELECOMUNICAQOES 



CONGRESSO & FEIRA 

] Se a sua empresa deseja vender para 

um publico profissional altamente qualificado... 

Se a sua empresa visa estabelecer ou ampliar relagoes comerciais 
com empresas privadas ou estatais com alto poder de compra ... 
Se a sua empresa busca criar novos canais de distribuigao 

ou novas pa rcerias . ; . 

Se a sua empresa esta langando novos produtos... 

... o seu primeiro encontro de negocios ja esta marcado! 
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Ao Leitor 



Uma das pedras no sapato de quem programa, nesses tempos de interfaces 
graficas, e lidar com os inumeros padroes de arquivos existentes no mercado. 
Terreno pantanoso, o assunto comega a ser desmistificado por Micro Sistemas 
justamente pelo Windows, onde o problema e mais agudo. Nesta edigao, Cleuton 
Sampaio aborda os arquivos BMP e WMF e mostra como trabalhar com esse tipo 
de imagem, no Windows 

Duas materias, iniciadas na edigao anterior, saocomplementadas agora: Tudo 
sobre Winchester, de Laercfo Vasconcelos e Gerador de Telas, de Marcos 
Santello 

E para a turma dos programas, o Controle de Clientes, de Renato Andre Alves, 
e certamente uma dica interessante. Vale a pena conferir. 

0 ano, que neste ladoda linhado equador comega emmargo, esta prometendo 
um festival de feiras e acontecimentos. O que tern chegado de releases e 
programas, aqui na redagao, ja da para antever uma agitagao muito grande. E 
esperar para conferir. 



Renato Degiovani 
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VITECH DISTRIBUIR DISCOS 
RIGIDOS DA MAXTOR 

A Vitech - Vitdria Tecnologia S/A acaba de firmar acordo 
com a Maxtor Co. para a distribui?ao de discos rigidos high- 
quality no Brasil. Inicialmente serSo colocados no mercado 
quatro modelos da “ S6rie Maxtor 7000”, com capacidades 
variando de 245 a 546 Mb. 

Todos os HDs sao do tipo LOW PROFILE (baixaaltura), com 
tecnologiaROTARY VOICE-COIL, baixo consumo, no tamanho 
de 3.5 polegadas. Apresentam INTERLEAVE de 1:1, cache 
prdprio variando de 64 a 256Kb es3o 100% SMT (Surface Mount 
Technology). 

Os quatro modelos sao os seguintes: Maxtor 7245 (245Mb), 
Maxtor 7273 (273Mb), Maxtor 7345 (345Mb) e Maxtor 7546 
(546Mb). Eles levam o selo de total compatibilidade com os 
ambientes Microsoft Windows NT e Novell NetWare. 

Estes quatro modelos Maxtor serao importados na forma de 
produtos acabados. Eles virao para complementer a linha, 
permitindo oferecer HDs com maior capacidade de 
armazenamento de dados. Continuaremos tamb6m fabricando 
normalmente nossos discos de 105 e 120Mb, com tecnologia da 
empresa norte americana Kalok. A Vitech sera responsdvel nao 
apenas pela importa 9 ao e distribui^ao dos discos Maxtor no 
Brasil, mas tambem pela assistencia t6cnica e garantia dos 
produtos. 

Com capacidade que v3o de 84Mb a 1,24Gb, seus discos estao 
disponlveis nos tamanhos de 1,8 polegadas a 2,5 polegadas e3,5 
polegadas. 

el&ricas. desempbwu m pvpjefo para pmte&o total de 
- equipPMtiMMMMcose^ indmdualmmfe 

on ..-an grupo. dando arigm m KIT lNfMlI-ST0PtM T 
: ion^am d^^ (^arel^{PK$ PaTEL)eumcm^miode 
smsivdm sobretewfies de mgem ) 
aimosferica (rates) e addenlal, el imimndo comptelamenle \ 
a perigo dvqmmiMx eqmpammrn. 

; O KIT INTBUJ-STORM se mconira disponlvel para 

instalaqoes ^ e 

tr^slcas0X^ias$PH cam para litdmdecammlcqjtfo 

; (TBL- 2 ). illTIPlf 



DIG1CUT: SOLVQAO PARA CORTE 
DE VINYL 

A Digigraf, lider national na fabricagao e distribuigao de 
perifericos graficos para CAEiCADlCAM , acaba de criar o 
sistema DigiCut - Solugao Digital para Corte de Vinyl efilmes 
de recorte. Reunindo a mais avangada tecnologia mundial de 
corte de materials ela Integra plataformas graficas que integrant 
nos ambientes Macintosh e MS-windows complotters cor tadores 
Houston-Summagraphics e os principals softwares graficos 
disponlveis no mercado. O sistemaDigiCut destina-se ao segmento 
de sinalizagao e comunicagao visual computadorizada, urn 
nicho de mercado em expansao no Brasil. 

,( Estamos empenhados em tornar esta tecnologia bastante 
acesslvel junto aos sighn designers , profissionais de corte e 
departamentos graficos de grande s companhias, at raves de suas 
multiplas aplicagoes posslveis\ referindo-se , por exemplo , a 
deco rag do de vi trines, letreiros , paine is Jateamento de are ia em 
vidro, silk-screen, adesivos para carros, motos, onibus, avioes , 
entre outras. “A tecnologia de corte de materials, a solugao 
DigiCut alia, ainda, servgos de colsultoria, treinamento e 
suporte tecnico especializados" , informa o diretor. A Digigraf 
espera conquistar 40% deste mercado. 

FESTO DIDACTIC DIVULGA 
CURSOS DE ABRIL PARA 1994 

A Festo Didactic, unidade de negdcios da Festo, trabalha 
voltada para o ensino de Automagao Industrial e Comunicagao, 
desen volvendo cursos, materials didaticos dirigidos paraapr&tica 
dos alunos , materias de apoio ao docente, e consultoria em 
engenharia de ensino e esta divulgando sua programagao para 
fevereiro. 

Os cursos sao realizados na matriz, situada em Sao Paulo 
(Anchieta), nas filiais de Sao Paulo (Lapa), Campinas, Rio de 
Janeiro, Belo Horizonte, Coritiba, Joinvile, Recife, PortpAlegre 
e em seus distribuidores de Manaus, Natal, Fortaleza, Vitdria, 
Joao Pessoa, Goiania, Slavador e Maringa, podendo atingir 
desde pessoas que desejam conhecer as t6cnicas iniciais da 
pneumdtica, hidraulica, eletricidade e eletrdnica, como 
engenheiros, t6cnicos, projetistas e pessoal de manutengao. 

Ha 19 anos no Brasil, a Festo Didactic ja treinou cerca de 22 
mil proficionais de manutengao, projeto, produgao e engenharia, 
professores e intrutorest6cnicos da arcade automagao industrial, 
tomando-se mundialmente reconhecida pelo seu trabalho. 




METASOFT 

SISTEMAS E CONSULTORIA LTDA. 



CONTABILIDADE EM 
CLIPPER COM FONTES 



- Plano de contas 

- Histdrico 

- Razao 

- Balancete 

- Livro diario 



Rua Clemente Falcao, 122 - Tijuca 
Cep:2051 0-1 20 - Rio de Janeiro - RJ 
Tels.:(021 >268-2576/288-5924 
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ALEX SOFT INFORMATICA 

R. Pedro de Toledo, 967 / 



KBreTSI s£TTl =( sit! iim: aijckW ttrM Jlsfcl 1 1 him i« VT • M A M "Ml 



Fone/Fax: 
(011) 570-1478 


ImbaUvefs HI 3S3 


&o 5 'A DD (com Disco) : US$ 
So 5 'A HD (com Disco) : US$ 


1,3 

1.7 

A A 


f Doiar 1 
^Corner xial j 


^edidos : por Carta ou Fone d€ 


a uoniira a vaiioaue a os rrocos ) wOiTGIO 
i Sea. k Sex. das 10:00 As 13:00. Sihado c 


[ a C30 g\j KJIS0U3T0S) . UoS 
fas 10*00 As 1fi*nn Ralaninnanrln n f*. 


1£ 

AHiir 






Formas de Pagamento : 1-) CHEQUE NOMINAL: k Alex Soft Entret. e LocagSo Ltda. ou 2-) DEP6SITO EM CONTA: Banco Bradesco, 
Agencia 2202 - 9, Conta 5.520 - 4 em nome de Alex Soft Entretenimento e Locagfio Ltda., enviando xerox do depbsito junto ao pedido. 

Eletr6nico : Envie um disco 5 % DP ou CR$ 400,00 ,c/ seu nome e epderecb. Compras adma de 8 discos o catAloao 6 gratis 







ED IT ORES DE ETIQUFTAS : 

JA0306 BARCODE 
DD AO 093 DISK LABEL GENERATORS JO 
DD A0026 DISK MANAGER LABELS 
DD A0 13$ ENVELOPE LASER 
DD AQ0M ET MASTER 
DD A0 125 FANCY LABELS 
DD A0066 LABELS PRO 
DD AO 263 LABELS UNLIMITED II 
DD A0 006 MAI MONSTER 
DD A0 005 MR, LABEL 
DD A0 09 1 PICTURE LABELS 2.1 
DD A00I7 SI5T, DE ORGAN, DE DISCOS 

gg EDtTORES DE TEXTO : 

HD A0 2 74 ABLfTV 
DD A0297 BATED 
DD A03II BEST WORK 
DD A0 064 FACIL 
HD A0 120 LETTER WRfTTER 
DD A0 004 MICRO REGISTER 

gg FAZ CHECK UP DO MICRO 

DD A029S BENCH MARK 5.0 
HD A0023 CHECKTT 
DD A0 155 DEL 
DD A0 044 PC-TESTES 

DD A0 091 QA PLUS - SISTEM PERFORMANCE 

gg ASTROLOGIA, ICHIN, TAR6T, 

HO A0 309 ASTRO 
DD A0 3 1 5 ASTROLOGICAL FORTUNE 
DD A0 302 ASTROLOGY 94 
DD AO 2 97 ASTROiMATICA 
A001I MAGUS 

DBPROTETORB DE JOGOS 





AGENDAS E CAL END A* I OS : 



A0 2 77 ACTIVE LIFE ( 

A02B2 AGENDA I J . C 

A0283 AGENDA EUTRONICA C 

A0 1 26 AGENDA TELEFONICA C 

A0296 AMPLE NOTICE C 

AUXtUARB LOTtRICOSl 

A0 009 LOTTO FEVER C 

A00I2 LOTTO PROPRET 0 

AOOI6 POL LOT £ 

PROGRAMAS ANTI-VfRUS : 

A04I9 SCAN ANTVVRUS V.9,1 7 v 1 06 0 

A04I7 TBAV 6,09 0 

A0077 VKUS SAFE 4.07 0 

COPIADORB : 

A0267 DISK DUPE 4.01 0 

A0426 VGA COPY PRO (V) 0 

A00I5 XENOCOPY 0 

FORMATADORB ESPECIAIS : 

A0 148 900 H $ 

AO 046 EASY FORMAT 0 

A0332 FD-READ 1.99 0 

A0 069 FORMAT & COPY MASTER 0 

A0 065 MAX FORMAT 0 

AUXIUARB P/ ESCRIT6RIO : 

A0294 ASTA5YAS 9>Ufttt) 0 

A0 300 OLE POWER PLUS 0 

A0 127 CHEX 0 

A0 2 35 CONTROU DE ESTOQUE 0 

AO 1 23 EASYMVENTORY 0 

A0 124 ESTAnSTK CONSULT 0 

A0269 EXTOK 2.09 0 

ATM 15 GENESIS 2.1 0 

FERRAMENTAS PARA O DOS : 



A0 136 AF-SLOW 

A0 2 65 DKIONARIOELETRCNKO 



:q il 1 e tmmmM | 



APUCATIVOS PARA WINDOWS: 

A0269 1000 KONES 01 DD 





T* 1* (Ml rtf ' e l’> Na compra de cada 10 Disquetes vocd ganha 1 Dlsquete DD Qravado " 

" 2-> Ou k cada 1 5 Disquetes vocd ganha 1 Dlsquete HD Qravado ; 

gfg 1 A/f £ v • ?" > 2°TP ras £!"l a 3 5 dl8C0S H D vocd P a 9 a com 2 Cheques (1 no Ato + 1 para 1 5 Dias) ; 

^ mz 1VM €>ij « 4-> Se Nesta Edlgao da Revlsta vocO encontrar algu6m de S5o Paulo que Venda Mats Barato. N6s Cobnmos a Oferta III (Confira as Valldadee) 
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OF1CINAS DE SOFTWARE, 
NOVIDADES DA ACTIONSOFT 



A Actionsoft, primeira empresa brasileira FULL SOLU- 
TION em treinamento, consultoria e distribuig&o de bibliotecas 
para plataforma Windows, comegao ano oferecendo um tipo de 
servigo in6dito no mercado nacional. Sao as Oficinas de Soft- 
ware, destinadas a aumentar a produtividade dentro das 
companhias, a partir do aprimoramento profissional na u tilizagao 
do MS-Windows e seus aplicativos. 

A exemplo do que ocorre em outros setores, onde esta pr£tica 
objetiva o aperfeigoamento t6cnico e o ganho de desempenho 
dos profissionais, as oficinas de software pretendem eliminar 
hdbitos improdutivos que reduzem a perfomance do usudrio, 
explica Carlos Henriquew Mora, dirctor da (li visao de treinamento 
da Actionsoft. Segundo ele, namigragSo do ambiente MS-DOS 
para o MS-Windows ou mesmo no upgrade de seu aplicativo 
preferido, muitas vezes o usudrio repete os mesmos passos 
assimilados anteriormente, sem perceber que o aplicativo jd 
otimizou tais procedimentos. “Desavisadamente, porem, ele 
continua a percorrer o caminho mais penoso para executar um 
comando ou uma fungdo. 

INTELLISENSE - Adotar hdbitos improdutivos ndo 6 
exclusividade dos usudrios brasileiros. Conforme Mora, eles 
resultam da autoconfianga do profissional em operar esses 
aplicativos, com os quais convive produtivamente hd muito 
tempo. Por este moti vo, ele nem sequer percebe que acumula um 
numero razodvel de hdbitos improdutivos e, em alguns casos, 
sente-se ofendido com simples comentdrios construtivos”, avalia 
Mora, que possui mais de 10 anos de experienciaem treinamento. 
Por isso, estamos langando as oficinas de software, que 
entendemos como a forma mais sauddvel de corrigir defeitos e 
atd mesmo de reciclar produtivamente usudrios em vdrias dreas 
deatuagao profissional.” 



APRENDA INFORMATICA 
SEM SAIR DE CASA 



CURSO R A PI DO, EC0N0M1C0 E EFICAZ 

Sistemas de Apostilas. Basta seguir os 
exercfcios treinando diretamente no seu PC 

COMANDOS TRADUZIDOS PARA NOSSO IDIOMA 

Acompanha disquete 5 1/4” com Exercfcios 

Estou enviando para Ricardo Flores, cheque 
cruzado e nominal & AUDIT SYSTEM SERVIQOS 
LTDA., CAIXA POSTAL N a 25096 - RIO DE 
JANEIRO - CEP 20552-970 no VALOR TOTAL DO 
PEDIDO \A incluidas as despesas postais. Tel (021 ) 
f 571-5903 



TS SHARA ENCERRA 93 COM 
CRESCIMENTO DE 53% 

A TS Shara, fabricante de no-break e estabilizadores, esta 
no mercado de informatica a apenas 3 anos e ja atinge de 
maneira competitiva algumas fatias deste mercado , 
registrando o ano de 93 um crescimento real de 50%. 

Para este proximo ano a empresa tern como objetivo 
dobrar este crescimento , e para atingir esta meta, ela esta 
com pianos de envestimentos em 4 dreas importantes: 

I )Joint-venture com empresa de Taiwam, com objetivo de 
transfer encia de tecnologia , a nxvel de no-break inteligente; 

2) Investimento de cerca de US$ 150 mil em auto- 
transformadores; 

3 ) Langamento de linha compacta e econdmica de short 
break de alta tecnologia e alta qualidade , de custo reduzido, 
altamente competitivo com tecnologia PWM. 

4) Exportaqao de no-break e estabilizadores para paises 
do mercosul , preparando a TS Shara para o mercado 
internacional. 

Os produtos da TS Shara sao comercializados por 
distribuidores de porte: Alcateia , Sidapis , US Computer , 
SND f Officer, Sonic Dealer e outros. 



I’ara as empresas inleressadas em di vulgar sens 
produtos ou eventos na secao Hits & Hytes da revista 
Micro Sistemas, basta escrever para Enter Press Kditora, 
Rua Washington Luis - n.‘) - Rio de Janeiro - R.l - 
CKP:2030«-‘i00, enviando um release explicativode seu 
produto ou servico, e aguardar a sua puhlicacan. 

RKDACAO 



TABELA DE PRECOS 




CURSO 


APOSTILA 




. MS-DOS 5.0 1 


□ US$22.00 




• WordStar 5.0/6.0 


□ US$22.00 




• Lotus 123 


□ US$22.00 


• Quattro Pro 


□ US$22.00 


ipglll 


• dBase III Plus Interativo 


□ US$22.00 


ippll 


• dBase III Plus Programado 


□ US$22.00 




• Clipper 5.01 B^sico 

• Ventura Publisher- Edit. Eletrdnica 

• Windows 3.1 


□ US$22.00 

□ US$22.00 

□ US$22.00 



Dolar comercial do dla da remessa do pedido 



NOME: 

ENDEREQO:. 

CIDADE: 

ASSINATURA 



TEL: 

EST.: CEP: 






s 





TONELADAS de 
SHAREWARE !! 

Os ultimos langamentos internacionais. 

* Oa melhoree programs* de SHAREWARE dteponfvek no mercado intemacionai, agora podem aer adquirWoa aqui no Braafl em pacotea (MEGA-SHARE). 

* Cada pacote 6 fbrmado por uma cofegio de diveraoa programaa de uma meama categoria. * Eata modattdade de dietribuigSo t8m obtklo enorme auceaao 
na Europa e Eatadoa Unldoa, por permltir aoa uaudrioa a obtengAo de uma enorme quantidade de programaa por baixiaeimo cuato. * A FREE SOFT , pioneira 
neats mod alidade de distrtbuig*o aqui no Bra ail, frequentemerrte tanga novoa pacotea de programaa com aa ultima* novidadea para DOS e WINDOWS*. 

Veja urn exam p to W Adquhindo um de noaaoa pacotea para WINDOWS* (ao cuato de U$ 25.00 - contendo 50 programaa), voce encontrart certamente 75% 
ou 80% de programaa que Ihe agradem, oa quaia voce continuer* utilizando. Maa dependendo do aeu goato, pode aer que encontra apenaa 15 programaa 
do aeu agrado. Adquirindo eatea meamoa 15 programaa de um dlatribuidor comum, peto prego de U$ 3.00 por programs, voc6 e«tar* gaatando U$ 45.00, 
e poaalvelmente ainda tare alguma deapeaa adicional de fretet © N6s da FREE SOFT, nio trabafoamos como afguns d&rfouktotos, que cobram o mesmo 
prego por discos que contbm um pequeno programs e 300 Kb de espego Hvref Todos os nossos pecotes sio distributor em discos de 5% e 3H HD . 




xiaom, u, mtcmw, mnomt*. -ewpjKr -weMnw; 

- i atm tiara TJUPtt aanisx. JtartL iwcr aniwniffi blackjack enu etna*. 
a-mw»-i«, Armoacwv lasohatoky, rrxY^TOK auutK *AC*uurrsK 
tcotiaAiTca, om-pa**, chomp, etrcttft, x-tMJtK* the po*t, c«to*a aaaoav 
oraaukr, aa tooaM mnmom, a*t*oko»y clock. c*we*tky* afqwvkk 
IW 4>UT,*HN«m + A*ACWIHLAUIAN** 

warncao* paint *hop pro, consano po*t« lhazis, cupkat*, atuj*. 

mmrnsu m mesa*, *4**t mm **e, aoateAst owotm. u *o*m 



CAtmo *lackmck cajhj fHAAK WAAta, liAittara, CAAtAat. rwtorr^AtfiLiaa 
payroll KLOTx.fcoawrt, mmemm^mmmnPtus.Keaoetm,mmeAycH, 
APomA MMMsemcomnm mrsmm, wmjt+wtmt, wm 
pmcoa,aiT2ttAVfeAtc t > pmHTira^P«cimci t HorKeY r na«»citt£« 

*av*k wmsa**, actw* up*, to oa u*t, puc eooK err sack. **xrvm. 
*c*a**lk mexmsm totmoTooi* «*ttw ak emcoA s*eAtt*r.iiiciivPT- 
neath *a*s*, uifoni* mm sejms, spoimco, talk 
clock *tAsti, Poataor, rotpouo, awuca, oarmoviK worn 1*0* 
SCRATCH 



FONTPACK-1 colegio de fontes TrueType* para WINDOWS* por 0$ 25.00 

*FW# 7 PACK-f 6 wm ooto«?lp<5om 1 (J 1 hwaa forto TrueType, ♦tobortwtf par» trab el hafero com todw ai «urs Rp flQ Rpfiet do Window*. * A» fonto* a*o totdmsnte utttaando o prcutro 

WTOWrO, ou eefe voce vm w Rr* *» MEna no video da t m vm lorrm que eerie impto eea e pNo eau edtor detotte. pianttha, O ee fctop PvtoWm, e*x *Coro POMtPA&W woe Urn ome oomptefe 

tirdMtn dmhotoo ♦•deae w toffi. - » WWlMdfrf : A cwwpatlvaf. i nyr t t ai r ii supoRadifr ihtta V d n d cw*, ^ 

inyr* e mi*f )Mife im > p >a>di rA irttoendoeue qpM^ RCWttRAC*-# da FRMfOrr h* p«*x*e*w uni toqu* do daa»a amtodaa aaa^ pubtic»?&a* 

di> fd»KO toitlMil ncitt tctotlo. 



Mran UJLyl£Jl4J|iJ (Qbidc Owncer^ MMMIMW CeccNace 

ttSM GHOUL FACE Hw^D Ou*k» «WCBMm 
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LIVROS 




WordPerfect - versao 6.0 

Shelley O'Hara 

TradugaoMair Dias Caldas de 
Moraes 

Editora Campus Ltda. 

245tf0nas 

Os usuSrios iniciantes que 
desejam estar aptos e seguros 
para usar o WordPerfect, 
encontrarao neste livro tudo o 
que precisam paracriar qualquer 
tipo de documento e aproveitar 
todos os recursos de um dos 
mais conhecidos programa de 
processador de textos do 
mundo. 

Como nos outros livros da 
s6rie, a autora comega peio 
b6sico, explicando cada termo, 
cada conceito, gradativamente, 
at6 inciuir os recursos usados 
com mais frequencia. 

0 leitor pode iniciar a ieitura 
no ponto em que acha mais 
conveniente, aescolhapodeser 
comegarpelosexercicios; pelas 
ilustragdes antes e depots, 
mostrando como fica a tela do 
computador antes e depois das 
etapas numeradas na segao de 
tarefes; ir direto d segao de 
tarefas, que explica 
detalhadamente como usar cada 
uma delas; memorizar o texto 
em negrtto para aprender quais 
teclas precionar; ler primeiro s6 
sa explicagdes para entender o 
que acontece durante um 
determinadopasso. 

Nao imports qual o mdtodo 
escolhido pelo prdprio leitor, o 
resultado serd sempre um 
aprendizado rdpido e seguro. 

Editar um texto; Verificar 
ortqgrafia; Recuperar um texto 
apagado; Mover-se rapidamente 



ao longo do documento; Fazer 
alteragoes no formato; Mudar a 
impressaodo texto. 

Estas sao aigumas das 
inOmeras fungoes do 
woardperfect, e estar sao apenas 
aigumas das muitos vantagens 
que os leitores irao dominar no 
aprendizadodo word perfect para 
DOS. 




Autocad Avangdo - Versao 12 

Robert M. Thomas 
Tradugao: S<mo Pareschi 
Editora Campus Ltda 

508p£glnas 

AutoCad o programa de 
computador mais usado pelos 
desingnes, desenhistas, indus- 
tries e arquitetos antenados 
com ofuturo - apresentado, 
agora, para quern deseja irainda 
mais longe na quaiidade e 
produtividade de seus desenhos 
profissonais.Trata-sede umguia 
abrangente, um tutorial de fAcil' 
compreengao, para aumentar a 
produtividade do autocad utilh 
zando as linguagens AutoUSP e 
Advanced Development System 
(ADS) - mesmopara quern nao 
tern muita experidncia com o 
AutoCAD. 

0 objetivo principal deste livro 
e dar asas a imaginagao do 
leitor e fazer com que ele reflita 
sobre suas necessidades e os 
passos necessArios para criar 
oaractertsticas, comandos e 
rotinas inteiramente originais. 

Com ele, aprender a 
personalizar um programa 
AutoCAD toma-se um inves- 
ti mento rdpido e fdcil , com todas 
as vantagens decorrentes disto, 
como, automatizar as rotinas e 
fungoes mais utiiizadas. 



Sao apresentadas discus- 
soes completas sobre requisitos 
de software e hardware; o ciclo 
de desenvoivimento em ADS, 
do pseudogddigo ao produto fi- 
nal; tipos de dados e constantes 
simbdlicas; o valor dos arquivos 
de cabegalho da ADS. 

inclui ainda a cobertura 
completa de outros tdpicos 
avangados, como: 

tipos de linhas e padrdes de 
hachura personalizados; Uti- 
lizagao de formas e fontes; 
Quadros dedidlogo progra- 
mdveis. Ao longo do texto, dicas 
especiais ensinam como evitar 
e solucionar os erros e ar- 
madilhas mais comuns. 






Salvo polo C++ 

Kris Jamsa 
LTC Editora 

272pftglnas 

0 livro ideal para 
programadores iniciantes ou 
experientes que estao passando 
doC para o C++. Este livro 
contem intrugoes passo a passo 
f&ceis de seguir, ilustragoes e 
programas de exemplo que 
tornam leve e divertido o 
aprendizado do C++. 

Comegando da estaca zero, 
voce aprenderd como: 

Criar seus primeiros 
programas em C++; 

Ensinar aos programas como 
repetir comandos especfficos ou 
tomar suas prdprias decisoes; 

Exibir salda para atela e ler 
entrada do teclado. 

Sao licdes curtas e 
concentradas que apresentam 
conceitos-chave de 

programagao, nao exigindocada 
uma delas mais de 10 minutos 
de seu tempo para assimilagao. 




FoxPro for Windows 

Antonio Geraldo da Rocha Vidal 
LTC Editora 

684 p&gkias 

0 FoxPro for Windows e um 
software gerenciador de banco 
de dados, totaimentecompativel 
com o dBase III, que permite 
criar e organizar colegoes de 
dados (ou arquivos), com a 
finalidade de process£-ios para 
gerar informagoes. Utilizando o 
FoxPro for Windows voce pode 
criar e utilizar rapidamente 
aplicagdes com arquivos de 
dados das mais variadas 
naturezas, conforme a sua 
necessidade de armazenar e 
gerar informagoes. 

0 objetivo deste livro e 
fomecerconhecimantos basicos 
aos profissionais de micro 
inform§tica que desejam 
conhecer o FoxPro for Windows, 
habilitando-os a desenvolver 
sofisticados sistemas 
aplicativos para o ambiente win- 
dows, utilizando a tecnologia de 
banco de dados. 

Com ele voce vai aprender a: 

Criar, atualizar e ordenar 
arquivos de dados, incluindo, 
aiterando e exciuindo registros; 

Projetar e construir 
automaticamente telas de 
entrada e edigao de dados, 
contendo todos os recursos do 
ambiente windows (janelas, 
menus, botoes, figuras e etc.); 

Relacionar varios arquivos de 
dados para obter informagoes 
complexas e elaborarc&lculos e 
estatfsticas sobre os dados 
neles armazenados. 
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DOOM BIOurv B 12 urv 

O jogo do ano! Muita a^So e estrategia em 
sensacicnais graficos em 3D! Em 3 discos HD. 




DUKENUKEN B 3 urv B 5 urv 

Outro sensacional “arcade” da Apogee Software! 
Imperdivel! Em 1 disco de 5 1/4 ou 3 1/2 HD, 



I; 






BLAKE STONE 



E) 9 urv 



O mais novo lan 9 amento da empresa Apogee. 
Um jogo alucinanle! Em 2 discos 3 1/2 HD. 



i i * « * 



SHOOTING 



I 3 URV B 5 urv 



Transforme o seu PC num aut&tioo stand de 
tiro! Em disco de 5 1/4 ou 3 1/2 HD. 



T V g I 







HALLOWEEN HARRY B 5 urv 

Para quem gosta de jogos com muita emo^&o. 
Umatremenda 039 a &s bruxas! 1 disco 3 1/2 HD. 











MONSTER BASH H 3 urv B 5 urv 

Salve sens amigos no cemitirio. Mas cuidado com 
os manstros e os fantasmas! Em 1 disco HD. 




mwtrf 



VISUAL PLAYER H 3 URV B 5 urv 

Simplesmente o melhor programa para executar 
arquivos musicais “.MOD”! Em 1 disco HD. 



HOME DESIGN B 3 urv B 5 urv 

Um programa poderoso e simples de se usar! 
Ideal para desenhos deprojetos! Em 1 disco HD. 



NEOPAINT 



I 3 urv B 5 urv 



Tremcndo editor grificopara DOS. Exceleote 
para editar fotos “scanneadas”! Em 1 disco HD. 



!*» fr 
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MSX EMULATOR 1 .Ob 

£ isso ai. Acredite se quizer! O sea PC agora pode rodar os pro gramas ciiados para os MSX! 
Sem nenhum hardware adicional, apenas com erte programa, poderifo ser execotados jogos como 
Knightmare, The Goonies, Hyper Rally, Road Fighter, Sky Jaguar, Roller ball, Galaga, etc... 
„ Uma super exclusividade importada pela Nemesis Informitica! 

ATENQAO: O MSX Emulator 1.0b requer micro IBM/PC 386 ou superior com placa VGA. 

GRATIS: Varios jogos para voce testarseu EmuladorU! Q 8 URV (21 10 URV 



SHAREMANIA Shareware & Public Domain Software for LB M/PC 

Para pedir peio correio, envie vale-postal ou cheque nominal A NEMESIS iNFORMATICA LTDA. - Caixa Portal 4.583 Cep 20.001-970 
Rio de Janeiro - RJ. Ou venha ao nosso “Show-Room" na Rua Sete de Setembro, 92 sala 1.203 - Centro - Rio de Janeiro - RJ. 
Conhe$a nosso sirtema de vendas por telefone: (021) 242-0348 - FAX (021) 242-4760. Solicits nosso Cattlogo completo com novidades! 













JANELAS 



Imagens no Windows 

Se existe um meio atraves do qual podemos transmitir mensagens, 
emogdes e desejos, este meio e a IMAGEM... E vamos ver como 
armazena-las e/ou gera-las no Windows. 



Cleuton Sampaio de Meio Jr 



Voce ja deve ter reparado na enorme quantidade de 
pad roes de arquivos graficos, nao? Veja bem: PCX, GIF, TIF, 
DRW, GRF, HGR, PIC etc. Cada fornecedor de software criou 
seu proprio padrao e o implementou no mercado. Isto e coisa 
comum no ambiente DOS, pois ele nao tern como 
preocupagao a padronizagao de formatos. 0 Windows, que 
se propoe a oferecer padroes para tudo, possui 2 formatos 
basicos de arquivos graficos: 0 Bitmap (*.BMP ou *.DIB) e 
o Metafile (*.WMF). Existe um terceiro formato, chamado 
"Run Length Encoded” ou RLL, masque nao e muito utilizado 
pelos aplicativos. 

0 que quero, nesta edigao, e mostrar como o Windows e, 
por conseguinte, o VISUAL BASIC trabalham com imagens, 
e como voce pode tirar proveito disto. 

ARQUIVOS GRAFICOS 

Um arquivo grafico e um conjunto de bytes que define uma 
imagem do video. Existem basicamente 2 modos de se 
trabalhar com imagens: Raster ou Vetorial. Vamos estudar 
os concertos envolvidos nestes dois modos de desenho. 

Imagens Raster sao formadas porvarias linhas, formadas 
por elementos individuals chamados PIXELS (sera que tern 
algo a ver com o Bob Pixel?). Um PIXEL e um ponto da 
imagem, e pode ser formado por um ou varios Bits. 
Antigamente, nos velhos monitores CGA, usava-se muito a 
alta resolugao grafica, que era composta de 200 linhas com 
640 pixels em cada uma, sendo definidos apenas 2 
estados: aceso (1) e apagado (0). Um arquivo Raster seria, 
entao, formado por um conjunto de bits representando o 
estado da memoria de Video (16 KB). Hoje, com o advento 
do VGA e SVGA, a coisa complicou um pouco e veremos 
10 MICRO SISTEMAS 



como e um arquivo Raster mais adiante. 

Imagens Vetoriais sao diferentes. Ao inves de representar 
binariamente a area de Video, as Imagens Vetoriais sao 
formadas por uma serie de comandos graficos, que sao 
executados para se criar o desenho final. 

Podemos comparar, grosseiramente, com o antigo 
GWBASIC desta forma: 

IMAGENS RASTER - geradas pelos comandos PSET, LINE 
etc, e tradadas pelo GET e PUT. 

IMAGENS VETORIAIS - geradas por comandos DRAW. 

A principal diferenga entre arquivos Raster e arquivos 
Vetoriais e o tamanho. Um arquivo Raster, por representar 
a imagem pixel a pixel, e sensivelmente maior. Ja um arquivo 
Vetorial requer pouco espago, pois ele indica como reconstruir 
as imagens. 

No ambiente Windows o formato Raster e reconhecido 
nos arquivos com extensao BMP, e o formato Vetorial 
(somente do 3.1 em diante) nos arquivos com extensao 
WMF ou "Windows Metafile Format”. 

O FORMATO RASTER / BMP 

0 formato BMP e o mais simples de todos e e composto 
por uma serie de linhas formadas por pixels. No antigo CGA 
monocromatico, tinhamos 1 bit por pixel, e sua informagao 
era ligado/desligado. Suponha a seguinte imagem: 

Linha 1: 0001000 
Linha 2: 0010100 

.*...*. Unha 3: 0100010 

* * Unha 4: 1000001 

******* Unha 5: 1111111 





* * Unha 6: 1000001 

* * Unha 7: 1000001 

Desta forma teriamos, em tese, um arquivo grafico para 
um dispositive monocromatico. 

No Windows trabalhamos com dispositivos VGA e Super 
VGA, que exibem varias cores ao mesmo tempo. Entao 
precis aremos representar cad a pixel com a cor que devera 
aparecer no video. Desta forma serao necessarios mais de 
um bit por pixel. A tabela abaixo dara uma ideia a respeito: 

Monocromatico 1 bit 2 cores 

VGA 16 cores 4 bits 16 cores 

VGA 256 cores 8 bits 256 cores 

Super VGA 16 bits 32.768 cores 

0 Windows funciona normalmente no foimato VGA de 16 
cores, mas voce pode muda-io para VGA 256 cores ou para 
Super VGA, desde que tenha o driver correto para sua placa 
de video e monitor. 

No formato basico VGA, cada pixel e composto por 4 (VGA 
16 cores) ou 8 bits (VGA 256 cores). So que o valor indicado 
nao e a propria cor, mas um indice para encontrar a cor certa 
na PALHETA que estiver ativa. A Palheta e uma tabela que 
define a composigao de VERMEUHO, VERDE e AZUL para 
cada tonalidade desejada. Se temos VGA comum, a tabela 
tera 16 tipos de tonalidade, cada uma representando uma 
combinagao das cores basicas. £ possivel alterar a palheta 
ao nosso bel prazer, como podemos constatar no PAINT- 
BRUSH e em outros program as graficos. 

Os pixels sao divididos em quatro pianos, e a cor sera 
determinada pelos valores dos bits de cada piano. Um 
exemplo: 



PLANO PIXEL 1 PIXEL 2 PIXEL 3 PIXEL 4 

10 10 1 
2 0 0 1 1 

3 0 10 1 

4 0 0 1 1 

COR 0 5 10 15 

Entao, temos os valores para cada pixel do grafico: 

Pixel 1 : 0 
Pixel 2 : 5 
Pixel 3 : 10 
Pixel 4 : 15 

Em um sistema VGA 256 cores, teriamos 8 pianos para 
cada pixel, ou 8 bits. Note que estes valores dos pixels nao 
representam diretamente uma cor disponivel na placa de 
video, mas apenas uma cor da Palheta, que ira traduzir a 
quantidade de VERMELHO, VERDE e AZUL necessaria para 
mostrar o pixel. 

0 Formato do arquivo BMP e simples, e bastante 
semelhante ao formato do GET/PUT do GWBASIC. Uma 
figura de 16 x 4, ou seja: 16 pixels de laigura por 4 pixels de 
altura, seria gravada como um array de 16 pixels por4 pixels 
por 4 pianos de cor. Se usaimos VGA 16 cores teremos 128 
bytes, e se usarmos VGA 256 cores teremos 336 bytes por 
uma imagem tao pequena... 

Podemos gerar figuras no formato BMP com o PAINT- 
BRUSH, que vem com o Windows. 0 formato BMP e utilizado 
pelo Windows em icones, Cursores e Panos de Fundo. No 
VISUAL BASIC podemos utilizar este formato nas Picture 



PERSPECTIVAS PARA 94 

HS muita coisa "rolando" por ai, por6m destaco como 
principals novidades de 94 o “OS/2 for Windows" da IBM e o "Chicgfco” 
da Microsoft. 

0 OS/2 for Windows 6 mais uma prova de que a IBM, apesar de estar 
desenvolvendo outros sistemas operacionais, nao vai deixar "mole" 
para a Microsoft, abandonando o OS/2. Como pode ser possfvel um 
OS/2 para Windows? Sera apenas um DEMO do OS/2? Sera possfvel 
trabalhar com ele exatamente como farfamos com o OS/2 puro? Bern, 
estasquestoeseu s6 poderia responder, com certeza, ap6s realizar um 
teste do produto... mas eu posso tentar explicar o que a IBM oferece 
com este pacote. 0 OS/2 roda software DOS, Windows e OS/2, e ele 
faz isto porque tern os trds ambientes embutidos, pagando royalties 
para a Microsoft pelos dois produtos. A IBM resolveu oferecer entao, 
para quern ja tern DOS e Windows, apenas o mddulo do OS/2, o que 
permite ao usuario DOS e Windows rodar aplicagoes OS/2 e utilizar sua 
WORKPLACE SHELL (interfacegr^fica) que 6, reconhecidamente, melhor 
do que a do Windows 3.1. 0 prego do produto aqui 6 de cerca de US$ 
80,00, mesmo nao sendo uma pechincha, ja chega a atrair o pOblico 
como eu, que tenho DR DOS e Windows 3.1. 

O Chicago 6, na verdade, o Windows 4.0. Ele 6 o verdadeiro 
concorrente do OS/2, pois 6 um sistema operacional de 32 bits, com 
multitarefa preempt) va (o sistema gerend a o tempo dado &s aplicagoes). 
Afom do mais, devera ser um software cliente universal de redes, o que 
quer dizer que funcionarS de maneira satisfatdria nas redes mais 
conhecidas, apesar da Microsoft estar investindo pesado na sua 
prbpria rede, tendo o Windows NT Advanced Server como gerenciador. 



0 Chicago devera rodar diretamente na mSquina, sem ter o DOS por 
baixo, mas podera ainda executar softwares DOS. Ano passado ouvi, I a 
em Atlanta, o meu amigo Bill (Bill Gates)falarrapidamente(etimidamente) 
sobre o Chicago, pois a estrela do evento era o Windows NT, mas ele 
sempre deixou claro que o NT nao iria concorrer diretamente com o OS/ 
2, pois seu alvo era o mundo UNIX. Espera-se o seu langamento para o 
final de 94/infcio de 95, pois s6 agora estao comegando a aparecer as 
primeiras cbpias ALFA do produto. 

Mas as perspectivas para 94, no ambiente Windows e OS/ 
2, apontam para um mercado indeciso... Temos o NT, o Windows for 
Workgroups, o OS/2 2.1 (espera-se novo release em breve!), ou seja: 
novas plataformas e poucas novidades. A maioria dos softwares para 
Windows foi escrita na versao 3.0 (16 bits), sendo portada para as 
versoes seguites. Somente agora estao aparecendo softwares 
desenvolvidos (ou reconstrufdos) em versao 32 bits para o NT. Coisa 
semelhante ocorre com o OS/2, cujos principals aplicativos foram feitos 
ainda na versao 1.3. Ano passado foi de grandes langamentos, este ano 
sera de consolidagao dos mesmos. 

NOVIDADES PARA 0 WINDOWS 

Temos algumas novidades, uma 6 o OS/2 for Windows, ja 
mencionado, e a outra 6 o ACCESS 1.1 Distribution Kit. De maneira 
semelhante ao FOX PRO, a Microsoft criou um "Compilador" de Bancos 
de Dados ACCESS, que permite a utilizagao de aplicativos sem que o 
usuario possua o prbprio ACCESS. Segundo informagoes, ele tern um 
RUNTIME que le o Banco de Dados (MDB) e permite a execugao de 
macros, formuiarios, consuitase relatdrios. Infelizmente s6 existe para 
a versao 1.1. Agora esta eliminada a Gltima barreira para que se 
desenvolvam aplicagoes comerciais com o ACCESS. 
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SOLICITE COPIA DEMONSTRATIVA 



BOX e como Background dos formularios, conforme a fig. 1. 




RGURA 1 



AI6m de seu grande tamanho, asfiguras BMP nao podem ser 
esticadas/encolhidas sem afetar a qualidade da imagem que 
formam. Usamos este formato para desenhos, fotografias ou 
qualqueroutra imagem que nao possaserdescritacomcomandos 
da GDI do Windows. 

0 FORMATO VETORIAL / WMF 

Estefonnato e relativamente novo e e proprietario do ambiente 
Windows. Existem no mercado varios formates que suportam 
Metafiles, inclusive mesclando-os com imagens Raster. Oformato 
vetorial e muito utilizado por programas graficos, especialmente 
na area de editoragao eletronica. 0 Metafile nao e urn desenho, 



mas os comandos para se reproduZHo posteriormente. A diferenga 
§ que o programs que irS exibir a figure deverS “entender” o 
mesmo formato de Metafile do arquivo que a gerou. 

Como o formato WMF e padronizado no Windows, muitos 
softwares.^ o suportam, dentre eles: ACCESS, VISUALC, VISUAL 
BASIC, WINDOWS DRAW etc. Isto represents uma enorme 
vantagem, pois o formato Vetorial ocupa pouco espago e pode 
ser reproduzido em tamanhos diferentes, bastando alterar a 
escala do desenho. Existe um Objeto da GDI do Windows, 
chamado METAFILE. Voce pode criar um DEVICE CONTEXT para 
ele e usa-lo em operagoes de desenho, de modo que todas as 
operagoes realizadas serao armazenadas nele, pare posterior 
gravagao em disco. 

A grande vantagem do uso de Metafiles § a independence de 
maquina, pois um desenho feito em um dispositivo podera ser 
reproduzido em outro. Alem disto, existe a independence de 
software porque os comandos serao executados pela GDI do 
Windows, e nao pelo programs grafico em si. 





4 Ambiente de desenvolvlmento de relatorlos 

VjyCIVCOfO *mrn I PARA CLIPPER 5. 1/5.2 ECOMPATfVEIS 

O GENESIS 2.1 6 um ambiente de desenvolvimento de relatdrios p/ clipper 5. 1/5.2 e 
compativeis (Summer 87, dBase, FoxBase) eliminando a necessidade de programas 
fontes, compilagao, linkedigao e aumentando sensivelmente a produtividade. 

Composto de mddulo objeto compatlvel com o clippers, podendo ser linkeditado e 
distribufdo juntamente com seus sistemas desenvolvidos em Clippers; e de mddub 
executive! compatlvel com qualquer versao do Clipper, dBase, FoxBase e similares. 

CARACTERISTICAS 

• Reduz em atd 90% o tempo de confecgao de relatdrios simples e atd 70% de relatdrios sofisticados; 

• Gerencia atd 250 arquivos (de todos os tipos) abertos simultaneamente; 

• Controle de alinhamento horizontal e vertical totalmente livre, permitindo ao usudrio desenhar seu lay-out como 
desejar (etiquetas, cheques, notas fiscais, boletos bancdrios, etc.); 

• Controla atd 9 nrveis de quebra e subtotals; 

• Permite criar Indices internamente no GENESIS ou aproveitar indices jd prontos do seu sistema; 

• Permite filtros e ralacionamentos de forma iddntica ao Clipper ou controlados pelo usudrio como em um 
programa tradicional; 

• Aceita qualquer expressao vdlida em Clipper como campo de impressao, inclusive fungoes do usudrio, macros 
code blocks, objetos, etc; 

• Permite controle total de arquivos atravds das fungoes do Clipper 5, como dbSeek (), dbSelecAreaQ, dbSet- 
Relation(), etc, possibilitando os mesmo recursos de um programa tradicional; 

• Possui controle dinamico do fluxo do relatdrio atravds de comandos #IF,.,#ELSE#...#ENDIF e #GOTO...#CASE 
possibilitando gerenciamento dinamico da impressao para relatdrios sofisticados ou espec'rficos; 

• Possui senhas para impressdo e edigao. 

• Permite criar e alterar facilmente drivers de impressoras, adaptando-se a qualquer impressora do mercado. 
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CADASTRAMOS REVENDAS PARA TODO BRASIL 






Na figure 2 temos urn formulario com 2 IMAGE BOX mostrendo 
como o formato WMF 6 mais flexrvel. 

COMO OBTER IMAGENS 

Quase a totalidade dos softwares para Windows permitem o 
uso intensivo de imagens. Grfificos, desenhos efotos podem ser 
armazenados em registros de Bancos de Dados, da mesma 
maneira que o NOME ou CPF de uma pessoa. 

Se voce pretende desenvolver aplicapoes pare o Windows, 6 
bom ter isto em mente: uma imagem pode valer mais que mil 
palavras... 

Como obter as imagens? Voce pode desenhar, usando 
programas grfificos, pode Digitalizar, usando urn Scanner, pode 
importar de Video, usando uma placa especial de video ou pode 
utilizar uma biblioteca de CLIP-ART. 

Vfirios revendedores de shareware dispoem de excelentes 
bibliotecas, inclusive com fotos coloridas. No caso de querer 
desenhar, existe urn programa muito bom, edecusto relativamente 
barato, que 6 o WINDOWS DRAW, da Micrografx (responsfivel 
pelo Micrografx Designer). Seu prepo 6 de aproximadamente US$ 
100,00 e vem com uma grande biblioteca de CLIP-ART, dividida 
em varios assuntos. Ele utiliza urn formato proprio, DRW, mas 
pode ler e gravar em WMF. 



0 Sidney Provenzano sugere que se crie uma sepao com dicas 
de DOS e Windows, e outre com atualidades da Multimtdia. 
Sidney, o principal objetivo da sepao JAN ELAS 6 discutir aspectos 
tfecnicos, mostrando novidades e inform apoes sobre Windows. 0 
que 6 chamado de "dica” 6, normalmente, entendido como 
“macete” ou “truque”, e esta nao § a linha seguida pormim. Se 
voce reparar, encontrarfi aqui vfirias “dicas”, mas todas com a 
sua razao de ser totalmente explicada. 

Aqui estamos explorando e mostrando vfirios detalhes do 
Windows, utilizando a linguagem que estd se revelando como a 
mais popular no mercado: o VISUAL BASIC for WINDOWS. Tanto 
6 que estamos, a partir da edipao 135, iniciando urn curso de VB 
com o Ricardo Rores. 

Se voce tern alguma dOvida sobre Windows, 0S/2ou qualquer 
software destes ambientes, escreva para cfi que certamente 
responderei, por outro lado se tiver algo de interesse poderemos 
divulg&to. 

Quanto a criapao da sepao especffica de Multimidia, penso 
que ainda 6 premature, pois o equipamento exigido 6 muito care 
(CD-ROM etc), o que restringiria muito o ptiblico-alvo. Pofom jfi 
escrevemos varios artigos sobre Multimidia e tficnicas 
relacionadas, que voce encontrarfi nos nOmeros anteriores. 

Por enquanto 6 s6. Urn abrapo e at§ a prdxima. 



NADA COMO 0 DlALOGO... 



Tenho o costume de ler e, talvez, seja urn dos poucos que 
acompanham Forum de BBS e a sepao de cartas. Por isto, pela 
segunda vez, encontro uma missiva bem interessante. 



CLEUTON SAMPAIO DE MELO JR 6 Analista de Sistemas 
Senior. 



RAISFERBs 



1 SHAREHOUSE TEL. 031-496-6840 





FA£A JA OSEVPEDIDO ! 

031 - 496-6840 

A V. XANGRI-LA, 75 - Cl 2 5 - BRA UNAS 

BELO HORIZONTE - MG 
CEP: 31.365-640 



PREQO POR DISCO (INCLUSO) 
360 DDCR$ 1.020,00 
1.20 HD CR$ 1.680,00 
1.44 HD CR$ 1.840,00 

OBS: PRECOS VALIDOS ATE 1 0f 04/ 94 
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UNNATURAL SELECTION 


07/HD 


THE BEVERLY HILLBILLIES 


02/HD 


INCA II 


10/HD 


TFX TACTICAL FIGHTER EXP 


06/HD 


BLOODNET 


04/HD 


UNNECESSARY ROUGHNESS 


03MD 


KRONOLOG - NAZI PARADOX 


07/HD 


PINBALL FANTASIES 


02/HD 


WASHINGTON SCENERY FS 5.0 06/HD 


LITIL DIVIL 


06/HD 


WINTER OLIMPICS 


02/HD 


THE ELDER SCROLLS - ARENA 


08/HD 


JOHNNY QUEST 


02/HD 


DUNGEON HACK 


04/HD 


TRUMP CASTLE III 


03/HD 


STARLORD 


03/HD 


HIRED GUNS 


02/HD 




ALIEN BREED 


Qi/HQ 


MORTAL KOMBAT 


03AHD 


EPIC PINBALL 


02/HD 


ROBOCOP 3 


04/HD 


TONY LA RUSSA BASEBALL It 


06/HD 


PRIVATEER + SPEECH PACK 


09/HD 


SHADOWCASTER 


05/HD 


WAYNE GRETZKY HOCKEY III 


05/HD 


RAGS TO RICHES 


07/HD 


SAN FRANCISCO SCEN FS 5.0 


06/HD 


DOGFIGHT AIR DUEL 


04/HD 


BLAKE STONE 


02/HD 


TERMINATOR RAMPAGE 


06/HO 


EIGHT BALL DE LUXE 


02/HD 


BRAM STOCKER’S DRACULA 


01 /HD 


SIMCITY 2000 * SVGA 


02/HD 


RAC RALLY II - NETWORK 


04/HD 


RINGWORLD 


07/HD 





LEGENDS OF KYRANDU II 


06/HD 


CHESSMASTER 4000 WINDOWS 


03/HD 


MASTER OF ORION 


05/HD 


INNOCENT UNTIL CAUGHT 


07/HD 


STAR TREK JUDGMENT RITES 


11/HD 


ELITE II -FRONTIER 


01/HD 


CAESAR DE LUXE 


02/HD 


CYBERACE 


06/HO 


FIELDS OF GLORY 


06/HD 


POLICE QUEST IV 


12/HD 


PROTOSTAR 


04/HD 


I BUZZ ALDRIN RACE IN TO SPACE 07/HD 1 


INDYCAR RACING 


03/HD 


SHADOW OF YSERBIUS 


09/HD 


QUEST FOR GLORY IV 


09/HD 


THE LOST VIKINGS 


01 /HD 


SIMFARM 


02/HD 


DARK SUN 


05/HD 


DOOM 


04/HD 


ACES OVER EUROPE 


03/HD 


NHL COACHES CLUB FOOTBALL 


03/HO 


STAR WARS CHESS 


14/HD 


ALONE IN THE DARK II 


09/HD 


JURASSIC PARK 


03*HD 


SPEED RACER 


03/HO 


B WING 


01 /HD 


BETRAYAL AT KRONDOR 


07/HD 


GABRIEL KNIGHT 


11/HD 


SAM & MAX 


07/HD 


MIG 29 FOR FALCON 3.0 


03 mo 


RETURN TOZORK 


12/HO 


FLIGHT SIMULATOR S.O 


02/HD 


LEISURE SUIT LARRY VI 


06/HD 


COMANCHE ENHANCED 


11/HD 


LANDS OF LORE 


06/HD 


COMANCHE MISSION DISK 2 


03/HD 


SEAL TEAM 


02/HD 




SI 







PLACAS 



TUDO SOBRE WINCHESTER - Parte final 

Na segunda parte de "Tudo sobre Winchester" veremos os 
detalhes tecnicos da formatagao ffsica de discos Winchester (ou 
Disco Rigido) 



Ladrcio Vasconcelos 



FORMATAR FISICAMENTE um WINCHESTER significa demarcaros se- 
tores de suas trilhas para que dados possam sergravados. Atualmente os 
WIN-CHESTERS IDE e a maioria dos WINCHESTERS SCSI sio fbrmatados 
fisica-mente na fbbrica. Seus manuals trazem indicagoes como: 

DO NOT LOW LEVEL FORMAT 

FACTORY FORMATTED 

Nesse caso basta fazer o SETUP (se for o caso), a PARTIQAO e a 
FORMATAQAO L6GICA. Se o seu WINCHESTER for do tipo IDE, voc§ pode 
pararde leresteftem e passar diretamente ao item “PARTIQAO”. Inclusive, 
em muitas situagoes, 6 desaconselhbvel ou proibido formatar flslcamente 
um WINCHESTER IDE. A formatagao ffsica b necessbria e pode ser feita 
sem contra-indicagoes nos seguintes casos: 

a) WINCHESTERS MFM 

b) WINCHESTERS RLL 

c) WINCHESTERS do XT, dosdo que sejam MFM ou RLL 

WINCHESTERS MFM conectados a placas UDC podem serformatados 
fisicamente atravbs de um utllitdrio para formatagao ffsica existente no 
SETUP dos ATs modernos. WINCHESTERS conectados a placas 
controladoras que possuem BIOS podem ser formatadas atravbs deste 
BIOS. Usa-se entao um utllitdrio do DOS chamado DEBUG, que servirb 
como um mecanismo para chamaro formatadorffsico gravado no BIOS da 
placa control adora. A seguir veremos como tudo isso 6 feito. 

0 programs de formatagao ffsica d totalmente despadronizado devido 
ao fato da IBM nao ter deffnido como deveria ser esse software, o que 
deixou liber-dade aosfabricantes paradefinirem seusprbprios programas. 
AI6m disso nao seria conveniente fixar um padrao pois a tecnologia de 
WINCHESTERS encontra-se em plena evolugao. Tambbm nao 6 possfvel 
desenvolver um programs que formate qualquer tipo de WINCHESTER, 
pois existem cerca de 2.000 model os diferentes, cada um com suas 
prbprias caracterfsticas ffsicas e padroes de gravagao. Se fosse possfvel 
implementar um programa capaz de realizar a formatagao ffsica em todos 
os modelos de WINCHESTER, certamente este programa jb faria parte do 
MS-DOS hb muito tempo. Existem di versos programas de dlversos 
fabricates que real izam a formatagao ffsica. Chamaremosgenericamente 
este programa de "FORMATADOR FfSICO”. 

0 problems da formatagao ffsica pode ser dividido em duas partes que 
serao abordadas a seguir : 

A) como chamar o formatadorffsico (carga) 

B) como operar o formatador ffsico (execugao) 

0 programa formatador ffsico pode estar localizado em vdrios locals 
diferentes: 



a) No BIOS da placa controladora de WINCHESTER 

b) No BIOS da placa de CPU, juntamente com o SETUP CMOS 

c) Em um disquete fomecido pelo fabricate do WINCHESTER ou por 
terceiros 

d) Gravado no prbprio WINCHESTER, que jd viria formatado de fdbrica 
e com o formatador ffsico nele gravado. 

A carga do formatadorffsico pode portanto ser feita de vdrias formas, 
dependendo de onde esteja gravado. 

No caso do formatador ffsico estar gravado no BIOS da placa contro- 
ladora de WINCHESTER {comum em placas controladoras para XT e as dos 
tipos SCSI, ESDI e RLL), nao pode ser chamado diretamente pelo DOS, pois 
o DOS s6 chama programas armazenados em disco. Deve ser usado um 
software que pos-sa chamar programas que jb estejam armazenados em 
membria. Um software que possui tal capacidade 6 o DEBUG, um dos 
utilitbrios que acompanham o DOS. Deve ser colocado no drive “A" um 
"disquete de BOOT”, jutamente com o programa DEBUG. Procede-se 
entao da seguinte forma: 

A>DEBUG 

4=C800:5 

Ao ser chamado, o DEBUG coloca na tela o seu discrete “prompt”, que 
6 o sfmbolo 0 DEBUG serve para realizar vbrias operagoes, como 
mostrar e alterar posigoes de membria, executar um programa passo a 
passo, verificar e modificar os valores dos registradores intemos do 
micro processador, digitar e lis-tar programas em linguagem assembly, ler 
e gravar arquivos ou setores do disco, exectar programas localizados na 
membria. No caso, 6 essa Gltima a operagao que desejamos, ou seja, 
executar o programa de formatagao ffsica localizado no BIOS da interface 
de WINCHESTER, um programa que jb estb na membria. Deve ser utilizado 
o comando “G” do DEBUG (GO). £ exatamente o que ocorre quando 
digitamos o comando G8C800:5. 0 DEBUG executa o programa que estb 
armazenado no enderego de membria C800:5, que em geral § o enderego 
ocu-pado pela ROM da placa de interface de WINCHESTER. Ao ser 
fomecido esse comando, o DEBUG termina sua tarefa e o controle 6 
passado ao formatador ffsico que faz parte do BIOS da controladora de 
WINCHESTER. Na verdade o DEBUG nao fbrmata o WINCHESTER. Serve 
apenas como um utilitbrio para chamar o formatador ffsico. A partir daf o 
formatadorffsico estb chamado e vem a segunda parte do problems, que 
b a OPERAQAO. Esse problems serb abordado logo a seguir. 0 software da 
placa de interface de WINCHESTER pode estar localizado em D000:5 ou 
em D800:5 ou em E000:5, albm de C800:5. Esse enderego 6 selecionado 
por STRAPS na placa de interface. Deve ser consuitado o seu manual e 
verificados os STRAPS para a determinagao do enderego correto. 0 prbprio 
DEBUG pode ser usado para verificar este enderego. Basta que o DEBUG 
seja chamado e seja usado o comando “D” (DUMP) que sen/e para mostrar 
o que estb armazenado na membria. Devem ser usados os comandos: 
-DC 800: 5 
*DD000:5 
-DD800:5 
4 DEOOO:S 

Cada um dos comandos adma faz com que seja exibida uma sequbncia 
de 128 bytes armazenados na membria a partir do enderego fomecido, nos 
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formatos HEXADECIMAL e ASCII (figura 11). Se for exlbida na tela uma 
sequdncia de bytes com valor "FF" signifies que o enderepo est£ errado. 
Se for exibida na tela uma sequdncia de bytes com valores.diversos 
slgnlfica que o enderepo estd correto. Na figura 11 observa-se claramente 
que o programs estd em C800:5. 

Multos fabricantes fomecem, juntamente com o WINCHESTER, urn pro- 
grama formatador ffsico gravado em urn disquete. Nesse caso, para 
executd-lo basta colocar o disquete no drive "A” e chamd-lo. As instrupoes 
para chamd-lo e utilizd-lo sao encontradas no manual do WINCHESTER ou 
no prdprio disquete, em urn arquivo de texto chamado README.DOC ou 
outro nome similar. Por exemplo, os WINCHESTERS da SEAGATE sao 
muitas vezes fomecidos com o programs DISK MANAGER, que 6 fabricado 
por uma empresa chamada 0 NT RACK. A ONTRACK tambdm possui versoes 
do DISK MANAGER especiais para os WINCHESTERS da QUANTUM. Caso 
seu WINCHESTER seja do tipo MFM ou RLL, qualquer formatador ffsico 
pode ser usado, mesmo que seja de urn fabricante diferente. Nos 
WINCHESTERS IDE, SCSI e ESDI, caso seja necess&rio realizar uma 
formatapao ffsica, nunca deve ser usado urn formatador ffsico de outro 
fabricante, pois corre-se o risco de realizar uma formatapao ffsica incompa- 
tfvel com o WINCHESTER em uso. 



A>DEBUG 

*DC800:5 

0800:0000 EB 04 90-E9 B4 12 90 90 E9 Fi IF 

0800:0010 53 54 31 31 20 53 45 41-47 41 54 45 20 53 54 31 ST11 SEAGATE ST1 

0800:0020 31 20 42 49 4F 53 20 52-45 56 49 53 49 4F 4E 20 1 BIOS REVISION 

0800:0030 32 2E 31 20 20 22 28 43-29 20 43 6F 70 79 72 69 2.1 “(0) Copyri 

0800:0040 67 68 74 20 31 39 38 39-20 20 31 39 39 30 20 53 ght 1989, 1990 S 

0800:0050 45 41 47 41 54 45 0D 0A-38 FC 55 0E 1FFB BE B0 EAGATE..8.U 

0800:0060 14 E8 06 10 BE 14 00 E8-00 10 BE B0 14 E8 FA OF 

0800:0070 BE 35 00 EB F4 OF BA 20-00 0E 07 FC B8 55 AA BE .5 U.. 

0800:0080 C01F8BCA8B 
-DD000:5 

D000:0000 FF FF FF-FF FF FF FF FF FF FF FF 

D000:0010 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF 

D000:0020 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF 

0000:0030 FF FF FF FF FF FF FF FFFF FF FF FF FF FF FF FF 

D000:0040 FF FF FF FF FF FF FF FF-FF FF FF F FF FF FF FF 

D000:0050 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF FF FF 

D000:0060 FF FF FF FF FF FF FF FF-FF FF FF FF FF FF F FF 

D000:0070 FFFF FF FF FF FFFF FFFFFF FFFF FFFF FF FF 

D000:0080 FFFFF 
-DD800:5 

0800:0000 FF FF FFFF FF FF FF FF FF FF FF 

0800:0010 F FF FF FF FF FF F FFFF FF FF FF FF FF FF FF 

D800:0020 FFFFFFFFFF-FFFFFFFF 

0800:0030 FFFFFFFFFF-FFFFFFFF 

D800:0040 FF FFFFF FRF FFFFFFF 

D800:0050 FFFFFFFFFF-FFFFFFFF 

D800:0060 FFFFFFFFFF-FFFFFFFF 

D800:0070 FFFFFFFFFFFFFFFF FF 

D800:0080 FFFFF 
•DE000:5 

E000:0000 F F FF-F F F F F F F F 

E000:0010 FFFFFFFFFF-FFFFFFFF 

E000:0020 FFFFFFFFFF-FFFFFFFF 

E000:0030 FFFFFFFFFF-FFFFFFFF 

E000:0040 F FF F F F F F FRF F F F F F F F 

E000:0050 FFFFFFFFFF-FFFFFFFF 

E000:0060 FFFFFFFFFF-FFFFFFFF 

E000:0070 F FF F F F F F FF F F F F F F F F 

E000:0080 FFFFF 



fig 11 - procurando o enderepo do BIOS da placa controladora 



AI6m dos program as formatadores ffsicos do pr6prio fabricante do WIN- 
CHESTER, existem muitos outros. Por exemplo, o CHECKIT possui a oppao 
de formatar WINCHESTER. Esses formatadores de terceiros podem ser 
usados sem problemas, desde que o WINCHESTER seja do tipo MFM ou 
RLL. 

Algumas vezes o formatador ffsico vem gravado no prbprio WINCHES- 
TER. Nesse caso deve-se fazer urn BACKUP do WINCHESTER para urn 
disque-te. Desta forma recai-se no caso anterior, ou seja, o formatador 
ffsico fica grava-do em urn disquete. A Gnica diferenpa 6 que o disquete foi 
fornecido pelo usuSrio. A partir dal procede-se exatamente como foi 
descrito no caso anterior. Nao pense o usuGrio que nesse caso nao 6 
necess&rio formatar o WINCHESTER. Muitas vezes apenas uma pequena 
area no infdo do WINCHESTER vem formatada, apenas o suficiente para 
gravar o formatador ffsico. 0 usudrio deve fazer a c6pla do conteGdo do 
WINCHESTER para um disquete e realizar a formatapao ffsica. 



Para facilitar ainda mais o trabalho do usudrio, algumas placas 
controla-doras de WINCHESTER sao fomecidas com um formatador ffsico 
de carga auto-mGtica. Flea gravado em uma memdria ROM. Quando o 
computador 6 ligado, o programs da ROM 6 automatlcamente executado, 
e ao detectar que o WINCHESTER nao estd formatado fisicamente, 6 
colocada na tela uma mensagem como: 

O WINCHESTER NAO ESTA INICIAUZADO. DESEJA 

inicializA-lo 1 

Em caso de resposta positiva o formatador ffsico passa a ser executado. 
Nesse tipo de sistema, o usudrio pode tambdm realizar a formatapao 
atravds do DEBUG como descrito anteriormente. 

Em muitos ATs modemos existe no SETUP CMOS uma oppao para fbr- 
matapao ffsica de WINCHESTER, mas deve ser usada apenas para os 
modelos MFM conectados em uma placa UDC padrao MFM. A figura 12 
mostra a tela de abertura do SETUP da AMI (American Megatrends, Inc.), 
onde pode ser obser-vada a oppao "HARD DISK UTILITY". Para ativGTa 
basta seleciond-la usando a seta para baixo e tedar ENTER. 



BIOS SETUP PROGRAM - AMI BIOS SETUP UTILITIES 
(C) 1990 American Megatrends Inc., All Rights Reserved 



STANDARD CMOS SETUP 
ADVANCED CMOS SETUP 
ADVANCED CHIPSET SETUP 
AUTO CONFIGURATION WITH BIOS DEFAULTS 
AUTO CONFIGURATION WITH POWER-ON DEFAULTS 
CHANGE PASSWORD 
HARD DISK UTILITY 
WRITE TO CMOS AND EXIT 
DO NOT WRITE TO CMOS AND EXIT 



Standard CMOS Setup for Changing Time, Date, Hard Disk, etc 
ESC:Exit :Select F2/F3:Color FlOiSave & Exit 



fig 12 - tela de abertura de SETUPS modemos da AMI 

JS foi visto como carregar o formatador ffsico a partir de ROM, de 
disque-te, do prGprio WINCHESTER, por carga automGtica ou pelo SETUP 
CMOS. Agora serd analisada a segunda parte do problema, que 6 a 
operapao. Uma vez cha-mado o formatador ffsico, o que acontece ? O 
programs faz tudo sozinho ? Faz alguma pergunta ? Faz vSrias perguntas 
? Na verdade existem programas de todos esses tipos. 

faz tudo sozinho. 

Esse 6 o melhor tipo de formatador ffsico. Nao faz nenhuma pergunta 
ao usuSrio. Ao ser carregado comepa logo sem perguntas a fazer a 
formatapao. De-cobre automaticamente qual 6 o modelo do WINCHESTER 
instalado, suas carac-terfsticasff si case todos os parGmetros necessSrios 
d formatapao. 

pergunta qual o modelo do WINCHESTER 

Basta que o usufirio responds essa pergunta e a formatapao comepa. 
O modelo do WINCHESTER 6 sempre escrito na sua carcapa. Normalmente 
esse tipo de formatador coloca na tela um menu de oppoes de modelos 
de WINCHESTERS. 

faz vGrias perguntas 

Esse 6 o pior tipo de formatador ffsico, do ponto de vista do usuSrio. 
Faz perguntas que muitas vezes podem deixaro usuSrio assustado: 

Qual 6 o nGmero de cabepas ? 

Qual 6 o nGmero de cilindros ? 

Qual 6 o nGmero de setores por trilha ? 
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Pr6-compensagao feita a partir da qual citindro ? 

Onde 6 a zona do estaclonamento das cabalas ? 

Qual 6 o fetor da INTERLEAVE ? 

Quais sao os satoras defeituosos ? 

0 usufirio n6o deveficar assustado com esses perguntas. As respostas 
estao sempre contidas no manual da placa de interface e no manual do 
W IN-CHESTER. As 5 prime! ras sao caracterfsticas ffsicas e dependem 
apenas do mo<Jelo do WINCHESTER. Normalmente o manual possul uma 
tabela com essas caracterfsticas. No final deste artigo 6 apresentada uma 
tabela com as caracterfsticas ffsicas de dlversos WINCHESTERS, de 
diversos fabricantes. Essas inform apdes sao Grteis para a formatagao 
ffslca e tambdm para o SETUP. 

0 fetor de INTERLEAVE 6 urn ntimero inteiro que 6 dimension ado para 
compatlbilizar a velocidade da CPU com a velocidade do WINCHESTER. 0 
manual em geral diz para cada tipo de microprocessador e para cada tipo 
de clock qual 6 o interleave ideal. Os formatadores ffsicos modemos 
determinam a velocidade do mlcroprocessador e sugerem um INTER- 
LEAVE ideal. Por isso deve-se delxar o computador no MO DO TURBO 
durante a formatagao, para que o fatorde INTERLEAVE seja dimensionado 
para a performance maxima. Existe um programa chamado NORTON 
CALI BRAT que determ ina o INTERLEAVE Ideal para um determinado 
WINCHESTER e refaz a formatagao ffslca com este novo fetor de INTER- 
LEAVE, sem a perder os dados gravados. Os dados nlio sao perdidos 
porque o CALI BRAT 16 uma trilha para a memdria antes de reformat6-la com 
o novo INTERLEAVE e regrava seus dados apds a formatapSo. Este 
processo 6 reallzado para todas as trilhas do WINQHESTER. 

Ossetores defeltuosos tamb6m sao uma pergunta de fecil resposta. 
Durante o processo de fabricapao do WINCHESTER, as superficies 
magn6ticas nao fleam 100% perfeitas. Normalmente ocorrem algumas 
poucas Imperfeigdes na camada magndtlca onde sao gravados os dados. 
Na febrica, cada WINCHESTER 6 testado e sao determinados quais sao os 
setores do disco que apresentam defeitos. Os nOmeros desses setores 
sao impressos em uma etiqueta que 6 cola-da na carcaga do WINCHES 
TER, com o nome "BAD SECTOR MAP*. 

Para responder a pergunta feita pelo formatadorffsico basta digitar os 
dados dessa tabela. Multas vezes o WINCHESTER vem tamb6m 
acompanhado de uma llstagem de impressora que contdm o "BAD 
SECTOR MAP* para fadlitar o trabaiho do usudrio allviando-o de ter que 
abrir o gabinete do computador para ler o mapa. Miitos formatadores 
ffsicos nao necessitam que sejamfomecidos os setores defeltuosos, pois 
os encontram automaticamente durante a formatagao ffslca. Nos WIN- 
CHESTERS modemos o mapa de setores defeituosos 6 tamb6m gravado 
em uma drea do WINCHESTER chamada de “CIUNDRO DE SERVIQO*. 
Programas como o DISK MANAGER automaticamente descobrem os 
setores defeituosos acessando o CIUNDRO DE SERVIQO. Mesmo que o 
usudrio nao deseje fomeceros setores defeltuosos, nao hd problema. Os 
formatadores ffsicos modemos os detectam automaticamente durante o 
processo de formatagao. 

Em qualquer um dos casos, uma vez que o formatador ffsico jd tern 
todas as inform agoes necessdrias, comega o processo de formatagao que 
em geral dura de 5 a 60 minutos, dependendo da sua capacidade. Essa 
operagao final iza a formatagao ffsica. 

Devem ser a seguir executadas as duas prdximas etapas, que sdo a 
partigao e a formatagao I6gica. 

PARTigAO 

A partigao deve ser sempre feita apds a formatagao ffsica. Como sabe- 
mos, um WINCHESTER 6 um tipo especial de drive (Hard Disk Drive = HDD, 
as-sim como existe o Roppy Disk Drive = FDD). Particlonar um drive de 
WINCHESTER 6 definlr como serd usado a nfvel de DOS. Por exemplo, um 
WINCHESTER de 80 MB pode ser usado a nfvel de DOS como um drive *C* 
de 80 MB, ou entdo como um drive 'C* de 40 MB e um drive "D* de 40 MB, 
ou outra combinagao qualquer. 0 WINCHESTER 6 um *drive ffsico* e os 
drives "C*, *D*. *E*. *F* etc. sdo chamadosde “drives Idgicos*. Particlonar 
signifies dlvidir um drive ffsico em um ou mats drives Idgicos. Deve ser 
observado que a partigao deve sempre ser realizada, mesmo que o 
WINCHESTER seja usado inteiro como um drive "C”. Se executarmos um 
BOOT pelo drive *A* e tentarmos acessar o drive *C*, o DOS colocard na 
tela a seguinte mensagem de erro: 

Invalid drive specification 



MS-DOS Version 5.00 
Rxed Disk Setup Program 
{CJCopyright Microsoft Corp. 1983 - 1991 
FDISK Options 
Current fixed disk drive: 1 
Chose one of the following: 

1. Create DOS partition or Logical DOS Drive 

2. Set active partition 

3. Delete partition or Logical DOS Drive 

4. Display partition information 
Enter choice: [11 
Press Esc to exit FDISK 



fig 13 - menu principal do FDISK 

Isto signifies que o drive *C” ainda nao 6 reconheddo pelo DOS, ou 
seja, existe o drive ffsico, reconhecido pelo BIOS, mas nao o drive !6gico. 
Se tentarmos executar um BOOT pelo WINCHESTER antes de realizar a 
parti gio, o BIOS colocard na tela a seguinte mensagem de erro: 

NO ROM BASIC 

SYSTEM HALTED 

Signifies que nao foi possfvel executar o BOOT nem pelo drive “A" e nem 
pelo WINCHESTER, jd que ainda nao existe o drive *C* a nfvel de DOS. Essa 
mensagem tern um slgnlflcado histdrico. Os antigos PCs podiam operar 
com uminterpretadorresidente para a linguagem BASIC. Esseinterpretador 
era gravado em uma ROM localizada na placa de CPU. Caso o si stem a ndo 
operasse nem com disquetes e nem com WINCHESTER, era usado o BASIC 
residerrte. Como os ATs modemos ndo usam mais esse Interpretador 
BASIC, colocam esta mensagem de erro apenas quando nao conseguem, 
por alguma razao, executar um BOOT pelo drive *A* ou pelo drive *C". 

Para fezer a partigdo usa-se um utilitdrio do DOS chamado FDISK. 
Coloca-se no drive “A* um disquete com o DOS a ser instalado e com o 
programa FDISK. Digltase: 

FDISK 

Normalmente usa-se o WINCHESTER inteiro como drive *C\ Como 
essa opgao 6 a mais comum, o FDISK apresenta em seus menus, 
sugestdes que, se seguidas pelo usudrio (bastando tedar ENTER), farao 
com que o WINCH ESTER seja usado inteiro como drive *C” . Ou seja, chama- 
se o FDISK e tecla-se ENTER 4 vezes. Vejamos o que slgnifl ca cada ENTER. 
Ao ser chamado, o FDISK apresenta a tela da figura 13. 0 FDISK sugere 
a opgao *1* (criar partigao). 



Create DOS Partition or Logical DOS Drive 
Current fixed disk drive: 1 
Chose one of the following: 

1. Create Primary DOS Partition 

2. Create Extended DOS Partition 

3. Create Logical DOS Drive(s) in the Extended DOS Partition 
Enter choice: [1] 



fig 14 - menu de criagao de partigdes 

Para o FDISK existem dois tipos de partigao. A PARTIQAO PRIMARIA 6 
o drive *C*. A PARTIOAO ESTENDIDA 6 o restante do WINCHESTER. Uma 
par-tigao estendida pode ser usada como drive *D* ou subdhridida em 
vdrios DRIVES L6GIC0S(D, E, F....). Ao responder ENTER pel a prime! ra vez, 
estamos instnHndo o FDISK para criar uma partigao. A seguir o FDISK 
apresenta a tela da figura 14. 

Ao ser respondido ENTER 6 selecionada a opgao *1* (criar partigao pri- 
mdria). 0 FDISK coloca entSo a tela indicada na figura 15. 



Create Primary DOS Partition 
Current fixed disk drive: 1 

Do you wish to use the maximum size for a Primary DOS 
Partition and make the partition active (Y/N)...? [Y] 
Press Esc to return to FDISK options 



fig 15 - usando o WINCHESTER Inteiro como DRIVE C: 

Ao ser respondido ENTER pela tercel ra vez, o FDISK usard o tamanho 
mdximo permitido para uma partigio, que corresponds ao WINCHESTER 
inteiro. Serd entio colocada a tela indicada na figura 16. 
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System will now restart 
Insert DOS system diskette in drive A: 
Press any key when ready . . . 



fig 16 - final izagao do FDISK 

Colocase no drive "A" o dlsquete do DOS que estd sendo instaiado, 
aperta-se qualquer tecla e estd terminada a operagio do FDISK. Rea 
faltando a penas realizar a formatagao I6glca no drive *C\ 

OBS: No DOS versao 3.30 e anteriores nenhum drive Idgico pode ter 
mais de 32 MB. Portanto, um WINCHESTER de 42 MB, por exemplo, teria 
que ser obrigatoriamente dividido em dois ou mais. £ comum nesse caso 
dMdHo em um drive "C" de 32 MB e um drive *D* de 10 MB. Na versao 
4.01 esse limits foi aumentado para 512 MB, e na versao 5.0 para 2 GB 
(2048 MB). 

Por alguma razao pode se tomar necessdria a divisao de um WINCHES 
TER em vdrios drives Idgicos, ao invds de usd-lo inteiro como um drive *C". 
Abaixo estao algumas razoes que podem levar a adotar este procedimento. 

a) Usando o DOS 3.0, 3.1, 3.2 ou 3.3 com WINCHESTERS com 
capacidades superiores a 32 M bytes. Aconselhamos a, se possfvel, 
utilizar o MSDOS versao 6.0. 

b) Quando um WINCHESTER 6 usado por duas ou mais pessoas. 

c) Um WINCHESTER pode ser dividido em "C* e "D". No drive *C* 
ficariam arma-zenados os programas RXOS, que nao serao alterados, 
como o DOS, editores, compil adores, utilitdrios e aplicatiws di versos. No 
drive *D" ficariam os dados gerados pelo usudrio. Dessa forma a operagao 
de BACKUP fica um pouco mais fddl, pois os programas do drive "C” jd 
possuem BACKUP, que sao os prdprios discos originals. Basta ao usudrio 
fazer BACKUP do drive *D\ 

d) Para fad I i tar a mudanga para novas versoes do DOS, pode-se usar 
um drive *C" com cerca de 3 MB, s6 para o DOS e seus utilitdrios, e um 
drive *D* com o restante do WINCHESTER para uso normal. 

e) Quando um mesmo WINCHESTER abriga dois sistemasoperacionais 
diferentes, como DOS e UNIX. 

Nesses casos aclma, apenas os casos *A" e *E" tomam estritamente 
necessdria a divisao do WINCHESTER em vdrios drives Idgicos. 

Vejamos como 6 o procedimento para divldir um WINCHESTER (drive 
ffsico) em vdrios drives Idgicos (C, D, E...J. Serd ilustrado o exemplo de um 
WINCHESTER de 120 MB que serd dividido da seguinte forma: 

C: 60 MB 

D: 40 MB 

E: 20 MB 

Estaremos supondo que 6 utilizada a versao 6.0 do MS-DOS. Para 
realizar esta divisao, o usudrio deve executar quatro operagdes: 

1) Criar uma PART1QA0 PRIMARIA (drive C) com 60 MB. 

2) Criar uma PARTI QAO ESTENDIDA com o espago restante (60 MB) 

3) Divldir a PARTI QAO ESTENDIDA em dois DRIVES L6GICOS: 

Drive D, com 40 MB e Drive E com 20 MB. 

4) Definir a PARTI QAO ATIVA, que deve ser o Drive C. 

Inicialmente chama-se o FDISK e 6 apresentado na tela seu menu prin- 
cipal, como indicado na figura 13. Seleciona-se a opgao 1 (criar partigao), 
fa-zendo com que seja apresentada a tela Indicada na figura 14. 0 drive 
m C m 6 chamado de PARTIQAO PRIMARIA e o restante do WINCHESTER, atd 
o seu final, d chamado de PARTIQAO ESTENDIDA. 

Portanto deve ser seleclonada a opgao "1”, que cria a partigao 
primdria. A segulr o FDISK oolocard a tela indicada na figura 15, perguntando 
se o usudrio deseja usar o tamanho mdxJmo permitldo, que d igual ao 
WINCHESTER Inteiro. Deve ser respondldo "N". 0 FDISK apresentard 
entao a tela indicada na figura 17. 



Total disk space is 120 Mbytes (1 Mbyte = 1048576 bytes) 
Maximum space available for partition is 120 Mbytes (100%) 
Enter partition size in Mbytes or percent of disk space (%) 

to create a Primary DOS Partition [120] 

Press Esc to return to FDISK Options 



fig 17 - definindo o tamanho da partigao primdria 

Na figura 17 o FDISK pergunta qual d o tamanho desejado para o drive 
*C\ Pode ser respondldo em MB ou em porcentagem do total (Ex: 50%). 
0 valor DEFAULT d 120 MB, que d o tamanho total do WINCHESTER. No 
nosso exemplo, deve ser respondldo 60 ou entao 50%. Ao receber um 
nOmero inteiro, o FDISK considers que d o tamanho da partigao em MB. 
Se o nOmero inteiro for seguldo de *%\ o FDISK considers o tamanho da 
partigao como uma porcentagem do total permitldo. Ao ser respondldo 
*60", o FDISK coloca a tela indicada na figura 18. 



Creat Primarey DOS Partition 
Current fixed disk drive: 1 

Partition Status Type Volume Label Mbytes System Usage 
c: 1 PRI DOS 60 50% 

Primary DOS partition created 
Press Esc to continue 



fig 18 - criada participagao primdria de 60 Mbytes 

A prdxlma etapa d criar a PARTIQAO ESTENDIDA, que deve ocupar o 
restante do WINCHESTER. Teda-se ESC para voltar ao menu principal do 
FDISK (figura 13) e novamente seleciona-se a opgao "1" (criar partigao). 
£ entao apresentada novamente a tela da figura 14. Seledona-se entao 
a opgao *2” (criar partigao estendlda). 0 FDISK apresentard entao a tela 
indicada na figura 19. 



Create Extended DOS Partition 
Current fixed disk drive: 1 

Partition Status Type Volume Label Mbytes System Usage 
C: 1 PRI DOS 60 UNKNOWN 50% 

Total disk space is 120 Mbytes 

Maximum space available for partition is 60 Mbytes 

Enter partition size in Mbytes or percent of disk space (%) 

to create an Extended DOS Partition [ 60] 

Press Esc to return to FDISK options 



fig 19 - criando a partigao estendida 

Para criar a partigao estendida, basta tedar ENTER e serd usado todo 
o restante do WINCHESTER. A segulr o FDISK apresentard a tela indicada 
na figu-ra 20. 



Create Logical DOS Drive(s) in the Extended DOS Partition 

No logical drives defined 

Total Extended DOS Partition size is 60 Mbytes 

Maximum space available for logical drive is 60 Mbytes (100%) 

Enter logical drive size in Mbytes or percent of 

disk space [ 60] 

Press Esc to return to FDISK options 



fig 20 - definindo o tamanho dos drives D, E 

Essa tela d necessdria pois o FDISK nao considers automatlcamente 
a partigao estendida como drive *D*. 0 usudrio deve indicar se a mesma 
serd um drive *D* ou se serd dividida em *D\ *E", etc. No nosso exemplo, 
queremos criar um drive “D" com 40 MB. Basta entao responder 40. Serd 
apresentada entao a tela indicada na figura 21. 



Create Logical DOS Drive(s) in the Extended DOS Partition 
Drv Volume Label Mbytes System Usage 
D: 40 UNKNOWN 67% 

Total Extended DOS Partition size is 60 Mbytes. 

Maximum space available for logical drive is 20 Mbytes 
( 100 %) 
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Enter logical drive size in Mbytes or percent of 

disk space [ 20 1 

Press Esc to return to FDISK options 



fig 21 - criando o drive “E” 

Basta entao tedar ENTER para criar o drive “E", ocupando os Gltimos 
20 MB disponlveis. Rea claro que a partigao estendida pode ser dividida 
em diversos drives: “D", “E", "F", “G", etc. Basta indicar qual o tamanho 
de cada um deles, em MB ou em porcentagem do espago usado pela 
partigao estendida. No nosso exemplo, depois de definir os drives Idgicos 
“D” e “E" ser& mostrada a tela indicada na figura 22. 

Rea faltando apenas voltar ao menu principal e definir a PARTIQAO 
ATIVA, que 6 a partigao onde ser£ buscado o DOS durante o BOOT. Deve 
ser usada a partigao “1", ou seja, o drive “C\ 



Create Logical DOS Drive(s) in the Extended DOS Partition 
Drv Volume Label Mbytes System Usage 
D: 40 UNKNOWN 67% 

E: 20 UNKNOWN 33% 

All available space in the Extended DOS Partition 
is assigned to logical drives. 

Press Esc to continue 



fig 22 - drives logicos criados 

No menu principal do FDISK seleciona-se a opgao “2* (set active par- 
tition). SerS apresentada a tela indicada na figura 23. 



Set Active Partition 
Current fixed disk drive: 1 

Partition Status Type Volume Label Mbytes System Usage 
C: 1 PRI DOS 60 UNKNOWN 50% 

2 EXT DOS 60 UNKNOWN 50% 

Total disk space is 120 Mbytes 
Enter the number of the partition 

you want to make active [1] 

Press Esc to return to FDISK options 



fig 23 - definindo a partigao ativa 

Muitas vezes o usuSrio divide o WINCHESTER em mais de um drive e 
esquece de definir a partigao ativa. 0 resultado 6 que o BOOT nunca poderG 
ser feito com o WINCHESTER, mesmo que o drive “C" esteja com o sistema 
operational gravado. Para solucionar esse problems basta executar o 
FDISK e usar a opgao 2. Quando o usudrio esquece de definir a partigao 
ativa, 6 colocada a se-guinte mensagem de erro quando for executado um 
BOOT pelo WINCHESTER: 

NO ROM BASIC 

SYSTEM HALTED 

Portanto, nao deveseresqueddaadefinigaoda partigao ativa. Umavez 
feita essa definigao, estS terminada a operagao do FDISK. Volta-se ao 
menu principal etecla-se ESC para sair. 0 FDISK nao retoma ao DOS, mas 
executa um novo BOOT. Deve entao ser mantido no drive “A" um disquete 
de BOOT. 

FORMATAgAO LOGICA 

A Gltima etapa da formatagao do WINCHESTER 6 a formatagao I6gica. 
Se tentarmos acessar o Drive C apds o uso do FDISK, mas antes de realizar 
a formatagao I6gica, o DOS colocarS a seguinte mensagem de erro: 

Invalid media type reading drive C: 

Retry , Abort , Fail ? 



A > FORMAT C:/S 

WARNING, ALL DATA ON NON-REMOVABLE DISK 
DRIVE C: WILL BE LOST! 

Proceed with Format (Y/N)? Y 



Formatting 60M 
Format complete. 

System transferred 

Volume label (11 characters, ENTER for none)? 
62914560 bytes total disk space 
122880 bytes used by system 
62792280 bytes available on disk 
2048 bytes in each allocation unit. 

30660 allocation units available on disk 
Volume Serial Number is 0D5F-1AF8 
A> 



fig 24 - formatagao logica de um WINCHESTER de 60 MB 

Se isto acontecer, tede “A" (Abort), seguido de ENTER. Isso ocorre 
porque o Drive C ainda nao pode ser acessado, pois falta realizar a 
formatagao I6gica. Para tal utiliza-se o program a PDRMAT.COM. Coloca-se 
no drive "A" o disquete com o DOS que estfi sendo instalado e comanda- 
se: 

FORMAT C:/S 

0 WINCHESTER sera formatado logicamente. A opgao m /S m indlca que 
ap6s a formatagao I6gica o DOS deverS ser gravado no WINCHESTER. Isso 
6 importante pois em geral colocate o sistema operational no WINCHES- 
TER para que o BOOT possa ser executado sem a necessidade de colocar 
um disquete no drive “A". A figura 24 indica o que 6 mostrado na tela 
durante a formatagao I6gica. Os valores indicados correspondem ao caso 
de um WINCHESTER de 60 MB. 

A formatagao I6gica tamb6m dura dedneo a vinte minutes, dependendo 
da capacidade e da veloddade do WINCHESTER. Caso um WINCHESTER 
tenha sido particionado em vSrios drives Idgicos, cada um deles deve ser 
formatado logicamente. Se um WINCHESTER foi partidonado em 3 drives 
Idgicos, “C", "D" e “E", sendo “C" o drive usado para o BOOT (partigao 
ativa), devem ser feitas as 3 formatagoes Idgicas: 

FORMAT C:/S 

FORMAT D: 

FORMATE: 

0 BOOT pode agora ser executado a partir do WINCHESTER. Se duante 
o BOOT existir no drive “A" um disquete com o sistema operacional, o BOOT 
serd feito a partir do disquete. Caso nao exista disquete no drive “A" o 
BOOT serd feito a partir do WINCHESTER. 

DIFEREN£AS ENTRE FORMATAGAO FfSICA E FORMATAGAO 
l6gica 

0 processo completo de formatagao de um disco qualquer (disquete 
ou WINCHESTER) pode ser dividido em vSrias operagoes: 

A) dividir o disco magneticamente em trilhas e setores 

B) particionar o disco (s6 no WINCHESTER) 

C) gravar tabela de aiocagao de arquhros (FAT) 

D) gravar set or de BOOT 

E) gravar e inicializar o diretdrio raiz (ROOT) 

F) gravar o sistema operacional 

G) maicar na FAT os setores defeituosos, evitando sou uso 

H) gravar o volume 

No caso de disquetes, o prGprio programs “FORMAT.COM" realiza 
todas essas operagoes, exceto a “B", pois os disquetes nao precisam e 
nem podem ser particionados. No caso do WINCHESTER, o trabalho 6 
dividido da seguinte forma: 

Formatador fisico : realiza a operagao A 

FDISK : realiza a operagao B 

FORMAT : realiza as operagoes C atS H 

Ap6s uma formatagao fisica 6 obrigatbria a realizagao da partigao. 
Ap6s a partigao 6 obrigatGria a formatagao IGgica. Entretanto nada impede 
que o usudrio, a qualquer momento realize uma formatagao I6gica, por 
qualquer razao que a faga necessdria. TambGm nada impede que a 
qualquer momento seja alterada a partigao do WINCHESTER. Mas antes 
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A AVENTURA ESTA APENAS 
COMEQANDO 

Prepare-se para uma incrivel aventura no espago, em busca de 
um pequeno planeta azul. 0 Nautilus e um jogo de estrategia, 
que ira colocar em teste sua habilidade no comando de uma 
espagonave. 



Requisitos: 



Micro PC 286/386/486 
Video VGA / 256 Kbytes 
Mouse padrao Microsoft 
Drive de 1 .2 Mbytes 



Prego de langamento 
US$ 25 



Caracteristicas da nave: 

• Controles por mouse 

• Tela de informagoes 

• Diario de bordo 

• Sistemas de analise 

• Torpedos fotdnicos e phasers 

• Velocidade WARP 

• Botao de autodestruigSo 



0 

primeiro 
RPG 

em 

computador 



COMO ADQUIRIR: 

Converta o valor em dolar para Cruzeiros 
Reais pela cotagao do dolar comercial do 
dia do pedido. Envie cheque nominal para 
a PRO KIT informatics e Editora Ltda - 
Caixa Postal 108.046 - CEP 24121-970 - 
Niteroi/RJ 



Renato 

Degiovani 



henturn e mistmo no 



Forme um grupo de jogadores, pois a PRO KIT 
esta langando sua mais fantastica aventura no reino 
dos jogos inteligentes: um autentico RPG para com- 
putadores. 

0 mestre cria os cenarios onde acontecerao as 
missoes e os jogadores sao colocados f rente as mais 
diversas situagoes. Ao terminar uma partida, o mestre 
avalia o desempenho do jogador e, se for o caso, con- 
cede-lhe um talisma de forga e conhecimento, que 
podera ser us ado nas proximas missoes. 

Os jogadores podem ate mesmo j untar suas forgas 
para veneer uma missao mais complexa ou para com- 
bater um guardiao mais poderoso. 

As missoes podem ser simples ou possuir diversos 
nrveis de dificuldade, com inumeros perigos, armadil- 
has, guard iaes e a temrvel aparigao WAHAMEC - um 
ser etereo que busca mateiializar-se em nosso univer- 
so. 





0 EDITOR XINGU 

A criagao das missoes e extremamente simples e 
totalmente comandada por bones. O mestre pode 
visual tzar cada uma das sales do subterraneo e 
seieoonarate mesmo o tipode parade que as form am. 

Ao preparar um cenario, o mestre da a cada 
jogador um disco contendo todo o sistema responsavel 
pelo jogo. Ao terminar a missao, o jogador devolve o 
disco para a sua avaliagao e entao recebe uma palavra 
magica, que contem todo o seu conhedmento e forga 

Requisitos: 

Micro PC 286/386/486 
Video VGA/ 256 Kbytes 
Mouse padrao Microsoft 
Drive de 1.2 Mbytes 



Prego de langamento: 
US$35 






de alterar a partigao deve ser feito um BACKUP do WINCHESTER inteiro 
(todos os seus drives Idgicos), pols os dados sao perdidos quando a 
partigao 6 alterada. Ap6s a partigao, obrigatoriamente o usu5rio deve 
reallzar a formatagao I6glca de todos os drives nos quais o WIN-CHESTER 
fol particionado. 



O WINCHESTER PURO E O WINCHESTER EM KIT 



Como pode ser visto, o manual do WINCHESTER 6 muito importante. 
Um WINCHESTER precisa ser adquirido com seu manual, os parafusos e 
o FRAME para fixagao no gabinete. Os grandesfabricantesde WINCH ESTERS 
vendem caixas com dezenas de WINCH ESTERS desprovidos de acessdrios. 
£ o que 6 chamado de "BARE DRIVE”. Os revendedores nos E. U. A. 
adquirem WINCHESTERS em grande quantidade e providendam seus 
manuals, FRAME, parafusos, pJaca controladora, cabos e em alguns 
casos, um software para formatagao ffsica e para testes do WINCHESTER. 
Esses revendedores vendem o drive puro ("BARE DRIVE") ou o KIT 
complete, que 6 o preferido pelos consumidores. 0 drive puro 6 adquirido 
por empresas que montam computadores e jS possuem os acessdrios 
necesscirios. Um consumidor que pretende instalar um WINCHESTER no 
seu computador sempre prefere o KIT completo. A figura 25 mostra um 
exemplo de propaganda de venda de WINCHESTERS encontrada em 
revistas americanas. Como pode ser visto, o fomecedor d£ ao cliente as 
duas opgoes. 0 Kit completo 6 um pouco mais caro, mas 6 o indicado para 
o consumidor isolado. 



Ocorre que INFELIZMENTE a grande maioria dos fornecedores de mate- 
rial importado no Brasil compra caixas com dezenas de "BARE DRIVES". 
£ mais barato e tambdm mais compacto, jS que FRAME, cabos, placas e 
manuais e dis^juetes ocupam volume. Os WINCHESTERS chegam aos 
consumidores brasileiros puros, sem esses acessdrios. Os fornecedores 
no Brasil dao a desculpa de que o manual nao exlste, jd recebem sem 
manual. Isso 6 uma grande mentira. Basta consultar qualquer revista 
americana para constatarque o WINCHESTER pode ser vend i do isolado ou 
em KIT. Por exemplo, 6 rarfssimo encontrar um ma-nual de WINCHESTER 
MAXTOR. Muitos fornecedores afirmarao que esse manual nao existe. 
Entretanto a revista americana PC SOURCES de fevereiro de 1992 publicou 
um artigo sobre WINCHESTERS IDE onde elogia os detalhados manuais 
dos WINCHESTERS MAXTOR e QUANTUM. 

A verdade 6 que ex! stem centenas de fornecedores de material 
importado no Brasil, que sao na verdade intermedidrios entre o usu&rio e 
algumas dezenas de importadores que trazem material importado em 
grande quantidade. Esses importadores compram por atacado os "BARE 
DRIVES". 0 consumidor brasileiro nao 6 muito exigente com a qualidade 
e acaba comprando o WINCHESTER puro. Sem o manual, nao 6 possfve! 
saber as informagoes que devem ser fomecidas ao SETUP CMOS. Alguns 
WINCHESTERS trazem essas informagoes impressas na prdpria carcaga. 
Nesse caso, o manual nao faz falta a prinefpio. A falta s6 ser§ sentida 
quando for instalado um segundo WINCHESTER. Muitos usuSrios ficam 
com o WINCHESTER solto no gabinete devido S ausdneia do FRAME. 
Muitos fi-cam sem saber as caracterfsticas ffsicas a serem colocadas no 
SETUP. 0 usufi-rio deve ter pacfencia e procurar um fomecedor que venda 
o KIT completo. Se for muito diffcil, a solugao 6 exigir uma fotoedpia 
("xerox”) do manual (eles realmente existem, basta procurar), uma c6pia 
do disquete de utilitSrios, caso exista (Ex: SEAGATE DISK MANAGER) e 
adquirir um gabinete que comporte a instalagao sem a necessidade do 
FRAME. 
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fig 25 - Anuncio de venda de WINCHESTERS nos E.U.A. 
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STRAPS DE WINCHESTERS 

Como em todos os dispositivos encontrados nos PCs, 6 necess£rio 
confi-gurar corretamente alguns STRAPS encontrados nos discos WIN- 
CHESTER. A descrigao desses STRAPS 6 encontrada no seu manual. Esse 
estrapeamento diz respeito, principalmente, ao selecionamento entre o 
WINCHESTER 1 e o WINCHESTER 2. Normalmente os WINCHESTERS sao 
estrapeados corretamente na febrica, mas pode ser necess^rio realizar 
alguma alteragao, antes mesmo de rea-lizar sua instalagao mecSnica. 

Um conjunto tfpico de STRAPS encontrado em WINCHESTERS MFM, 
RLL e ESDI 6 mostrado na figura 26. Como pode ser visto, 4 pares de pinos 
de selegao configuram o WINCHESTER como 1, 2, 3 ou 4. As placas 
controladoras de WINCHESTER para PC podem controlar apenas 2 
WINCHESTERS, e o estrapeamento deve ser feito apenas nas posigoes 




fig 26 - straps de WINCHESTERS MFM, RLL e ESDI 



Para fazer o estrapeamento correto do WINCHESTER deve ser observa- 
da a inversao presente no cabo de control e. Essa regra 6 resumida na 
tabela abaixo. 



ESTRAPEAMENTO 

CABO COM INVERSAO CABO SEM INVERSAO 



WINCHESTER DA 






PONTA DO CABO 


DS2 


DSl 


WINCHESTER DO 






MEIO DO CABO 


DS2 


DS2 



Quando existe apenas um tinico WINCHESTER instalado, o mesmo 
deve ser conectado na extremidade do cabo de controle. Se o cabo de 
controle possui inversao o WINCHESTER deve ser estrapeado como 
“DS2", caso contrSrio como "DSl”. Se existirum segundo WINCHESTER, 
este deve ser ligado ao conector local izado no meio do cabo de controle 
e seu estrapeamento deve ser sempre "DS2\ 

Os WINCHESTERS SCSI possuem um estrapeamento diferente. Os 
dispositivos ligados a um cabo SCSI recebem um nOmero chamado "SCSI 
ID", que varia entre 0 e 7. Em uma instalagao com um Onico WINCHESTER 
SCSI, seu ID deve ser estrapeado como 0. Caso seja instalado um segundo 
WINCHESTER SCSI seu ID deve ser estrapeado com outro valor qualquer. 
Tipicamente coloca-se o valor 1. Quanto ao posicionamento no cabo, 
quando um Onico WINCHESTER SCSI 6 instalado deve ficar no conector da 
extremidade. Um segundo WINCHESTER ocuparia o conector do meio, mas 
nao obrigatoriamente. Ao contr^rio dos WINCHESTERS MFM, RLL e ESDI, 
no caso da instalagao de 2 WINCHESTERS SCSI qualquer posicionamento 
nos conectores 6 vSlido. A Onica restrigao 6 que no caso da instalagao de 
um Onico WINCHESTER deve ser usado o conector da extremidade. 

Os WINCHESTERS IDE tamb6m possuem STRAPS para selecionamen- 
to. Ao inv6s de serem estrapeados como DSl e DS2, usam a designagao 
MASTER e SLAVE. Quando um Onico WINCHESTER IDE 0 instalado (na 
extre-midade do cabo) deve ser estrapeado como MASTER. Um segundo 
WINCH ESTER IDE a ser instalado deve ser estrapeado como SLAVE. Existe 
um outro STRAP chamado "SLAVE PRESENT" ou "SLAVE INSTALLED", que 
deve ser posicionado corretamente conforme exista ou nao um segundo 
WINCHESTER instalado no cabo. No WINCHESTER SLAVE esse STRAP 
normalmente 6 ignorado. A tabela abaixo resume o estrapeamento dos 
WINCHESTERS IDE: 





Gnico instalagao de dois winchesters 
STRAP winchester primeiro segundo 



MASTER/SLAVE MASTER MASTER SLAVE 

SLAVE PRESENT NO YES YES 

Observe que nao foi especificado se MASTER e SLAVE PRESENT cor- 
resondem a encaixar ou retirar os STRAPS. Esse estrapeamento varia de 
um WINCHESTER para outro. Por exemplo, nos modelos SEAGATE ST 125A, 
ST138A, ST157A, ST3096A, ST3120A e ST3144A esse STRAP quando 
estO ervcaixado indica que o WINCHESTER 6 MASTER. JS nos modelos 
ST1090A, ST1126A, ST1133A, ST1162A, ST1186A, ST1201A e ST1239A, 
o STRAP retirado indica MASTER. 0 manual do WINCHESTER 6 necessSrio 
para realizar o estrapeamento correto. £ verdade que os WINCHESTERS 
sao todos configurados na fObrica como MASTER e SLAVE NOT PRESENT. 
Mas para instalar um segundo WINCHESTER o estrapeamento adequado 
deve ser realizado. 

RESISTORES DE TERMINAGAO 

Todos os WINCHESTERS possuem RESISTORES DE TERMINAQAO. Sao 
chamados nos manuais em inglds de “RESISTOR TERMINATION PACK". A 
regra a ser utilizada 6 muito simples. 0 WINCHESTER conectado na 
extremidade do cabo deve permanecer com seus resistores de terminagao 
instalados, da forma como chegaram da fabrics. 0 WINCHESTER ligado ao 
conector do meio do cabo deve ter seus resistores de terminagao 
retirados. 0 manual do WINCHESTER traz sempre instrugoes a esse 
respeito. Os resistores de terminagao possuem um fbrmato muitas vezes 
semelhante ao de um CHIP e sao encaixados para que possam ser 
retirados pelo usudrio. 

Alguns WINCHESTERS nao necessitam que os resistores de terminagao 
sejam retirados. Sao calculados de forma que possam ficar presentes nos 
dois WINCHESTERS. Nos modelos onde 6 necess£rio retirar os resistores 
de terminagao do WINCHESTER conectado no meio do cabo, existirao 
instrugoes a esse respeito no seu manual . Normalmente os WINCHESTERS 
IDE nao necessitam desses cuidados. 

GEOMETRIA DE WINCHESTERS IDE 

Entende-se por GEOMETRIA de um WINCHESTER, o seguinte conjunto 
de valores: 

ntimero de ca begat 

ntimero de clllndroa 

ntimero de setores por trilha 

clllndro de pr6-com pens agio 

zona do estaetonamento das cabegas 

Normalmente essageometria deve serfomecida no SETUP CMOS. Por 
exemplo, se um WINCHESTER possui 820 cilindros, 7 cabegas e 34 
setores por trilha, esses valores devem ser colocados no SETUP. Entretanto, 
algumas vezes esses valores nao podem ser colocados, pelas seguintes 
raz5es: 

a) 0 SETUP nao possui uma opgao correspondente d geometria real do 
WINCHESTER. 

b) 0 nOmero de cilindros do WINCHESTER 6 maior que 1024. 0 DOS nao 
pode operar com drives com mais de 1024 cilindros. 

c) 0 WINCHESTER usa uma t&cnica de gravagao chamada ZBR (Zone 
Bit Recording), que coloca mais setores nas trilhas extemas, com o 
objetivo de aumentar a capacidade. Isso faz com que o nOmero de setores 
por trilha seja variOvel. 

Por todas essas razoes os WINCHESTERS IDE operam no chamado 
MO DO DETRANSLAQAO (TRANSLATION MODE). As caracterfsticas definidas 
no SETUP CMOS representam uma geometria fictfda, mas que results em 
uma capacidade equivalente d capacidade real do WINCHESTER. Essa 0 
chamada de geometria I6gica. Quando 0 solidtado o acesso a um 
determinado setor ffsico, o BIOS envia ao WINCHESTER o nOmero do setor, 
do cilindro e cabega desejados. 0 WINCHESTER recebe esses tr$s valores 
e realiza uma conversao levando em conta a sua geometria verdadeira. 



Considere o caso do ST1239A, que possui as seguintes caracterfsticas: 

cilindros: 1272 

cabegas: 9 

setores: 36 

nOmero total de setores: 1272 x 9 x 36 = 412.128 

Como o DOS nao aceita drives com mais de 1024 cilindros, usa-se a 
se-guinte geometria I6gica, sugerida pelo fabricante: 

cilindros: 848 

cabegas: 9 

setores: 54 

nOmero total de setores: 848 x 9 x 54 = 412.128 

Observe que o nOmero total de setores 6 mantido. Esses valores devem 
ser colocados no SETUP. Suponha que o DOS realize uma leitura no setor 
40 do cilindro 0, cabega 0. Quando o WINCHESTER recebe esses valores, 
realiza a conversao e acessa fisicamente o setor 4 do cilindro 0, cabega 
1. Tamb6m 6 gerenciada a tOcnica ZBR, que coloca nOmeros de setores 
diferentes nas trilhas mais extemas. Muitas vezes a geometria ffsica nem 
6 fomecida. 0 usutirio precisa saber apenas a geometria I6gica para 
realizar o SETUP. No final deste artigo 6 apresentada uma tabela com as 
geometrias I6gicas de vtirios WINCHESTERS IDE, para que o usutirio possa 
realizar o SETUP. Essas caracterfsticas sao normalmente encontradas no 
manual do WINCHESTER. 0 roteiro para realizar o SETUP de um WINCHES- 
TER IDE 6 portanto o seguinte: 

1) 0 SETUP possui um WINCHESTER com a geometria I6gica sugerida 
pelo fabricante ? Se possui, entao esta deve ser usada. Se nao passa-se 
ao item 2. 

2) 0 SETUP possui um tipo de WINCHESTER definido pelo usuSrio 
(normaknente 6 o TIPO 47) ? Se possui, este deve ser usado e programado 
com a geo-metria I6gica sugerida pelo fabricante. Se nao possui passa-se 
ao item 3. 

3) Calcula-se o nOmero de setores do disco. Esse nOmero 0 calculado 
a partir da geometria I6gica, com a seguinte formula: 

NtJMERO TOTAL DE SETORES = CABEQAS x CILINDROS x SETORES 

Com esse nOmero, procura-se nos tipos prO-definidos no SETUP, um 
que resulte em um nOmero total de cilindros iguai ou ligeiramente menor 
que o cai-culado acima. Qualquertipo que possua uma geometria lOgica 
que atenda essa condigao pode ser usado, desde que sejam respeitadas 
algumas condigoes: 

a) o nOmero de cilindros deve ser no mtiximo 1024 

b) o nOmero de setores por trilha deve ser no mtiximo 60 

Essas condigoes sao normalmente apresentadas no manual do WIN- 
CHESTER em questao e variam de um modelo para outro. 

Uma afirmagao qualquer sobre um determinado modelo de WINCHES- 
TER nunca pode ser generalizada para todos os modelos. IDE 6 um 
assunto novo e nao existe praticamente nenhuma literature a respeito. 
Muitos profissionais da tirea observam algumas caracterfsticas de um 
certo modelo egeneralizam, erradamente, para todos os modelos. Isso faz 
com que o usuSrio seja “bombardeado" continuamente com infbrmagoes 
falsas ou imprecisas. Por exemplo, 0 verdade que os WINCHESTERS IDE 
da SEAGATE aceitam qualquer geometria lOgica, desde que sejam 
respeitadas as condigoes descritas acima. 0 mesmo pode nao ser vtilido 
para WINCHESTERS IDE de outros fabricantes. Por exemplo, o WIN- 
CHESTER MAXTOR 7120A aceita 4 tipos de geometria lOgica: 

1024 cilindros, 14 cabegas, 17 setores 
900 cilindros, 15 cabegas, 17 setores 
762 cilindros, 8 cabegas, 39 setores 
936 cilindros , 16 cabegas, 17 setores 

0 MAXTOR 7 120A possui dois STRAPS que, definem qual § a geometria 
!6gica a ser usada. A opgao 1024x14x17 0 a que 6 corrfigurada na ftibrica. 
Como sempre, o manual 6 necesstirio. 
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GEOMETRIA DE WINCHESTERS SCSI, RLL E ESDI 



PARAMETROS DE WINCHESTERS MFM. RLL E ESDI 



Esses tipos de WINCHESTER possuem normalmente em suas placas 
de interface uma ROM que realiza todo o seu controle. 0 BIOS da plaea de 
CPU nao interfere no acesso ao WINCHESTER. Nesses casoso SETUP deve 
ser feito na opgao “HARD DISK NOT INSTALLED". 

PRI: COMPENSAgAO E ZONA DE ESTACIONAMENTO DAS CABEGAS 

Os WINCHESTERS antigos necessitavam de dois parSmetros adlcionais 
no SETUP. A pr6-compensagao de gravagao (WPCOM) 6 ativada a partir de 
um determinado cilindro para compensar o efeito magn6tico que ocorre 
entre os bits gravados nas trilhas mais intemas do disco. A operagao de 
estacionamento das cabegas consiste em posicionar as cabegas em uma 
trllha no final do disco (LZONE) para que o WINCHESTER possa ser 
transportado. Tamb6m § aconselhSvel realizaro estacionamento quando 
o computador 6 desligado. Os WINCHESTERS modemosgerenciam a pr6- 
compensagao intemamente, sem a intervengao do BIOS. Tamb6m reallzam 
o estacionamento automStico das cabegas quando sao desligados 
(AUTOPARK). Caso o fabricante fomega no manual do WINCHESTER os 
valores de WPCOM e LZONE, estes devem ser usados no SETUP. Caso o 
manual nao os fomega, qualquer valor pode ser usado, pois serao 
ignorados pelo WINCHESTER. 

Para que o BIOS tamb6m passe a ignorar a pr6-compensagao e o 
estacionamento das cabegas, deve ser usado para ambos o valor 65535. 
Para o BIOS, este valor 6 sinfinimo de "NOT USED”. Alguns manuais 
sugerem usar o valor -1. Nesse caso, pode ser usado o nGmero 65535, 
pois tern a mesma representagao bindha que o ntimero *1. 

Quando 6 usado um WINCHESTER antigo, que nao realiza o estaciona- 
mento automStico, deve ser utilizado um programs prfiprio para realizar 
essa ope-ragao. Normalmente 6 um programs chamado PARK.COM ou 
DISKPARK.COM. 

Osfabricantes de WINCHESTER recomendam que nao sejam utilizados 
progra-mas desse tipo com WINCHESTERS que possuem AUTOPARK. 
Normalmente nao causa nenhum problems, mas certos programas de 
estacionamento utilizados com certos modelos de WINCHESTER podem 
causar danos. 

SUPORTE DO FABRICANTE VIA MODEM 

Os usuSrios que possuem um MODEM podem obter informagoes 
tecnicas sobre seus WINCHESTERS, diretamente dos fabricantes, jS que 
a maioria deles possui uma BBS para atendimento de usu6rios. Alguns 
fomecem suporte em I inha telefdnica normal (obviamente em inglds). 
Abaixo estao relacionados os tele-fones de suporte ao usuSrio de alguns 
fabricantes. Deve ser usado o cfidigo 001 para discagem direta para os 
E.U.A. 

FABRICANTE TELEFONE ATENDIMENTO 

CONNER 408456*3388 SUPORTE itCNICO 

CORE INTERNATIONAL 407*241*2929 BBS 

CORE INTERNATIONAL 407*997*6044 SUPORTE it CNICO 

FUJITSU AMERICA 408-944*9899 BBS 

FUJITSU AMERICA 800*826*6112 SUPORTE itCNICO 

KALOK 408*747*1315 SUPORTE itCNICO 

MAXTOR/MINISCRIBE 303-678-2222 BBS 

MAXTOR/MINISCRIBE 800-356-5333 SUPORTE itCNICO 

PROCOM 800*800-8600 SUPORTE TtCNICO 

MICROSCIENCE 408433*9898 SUPORTE itCNICO 

QUANTUM 408-8944000 SUPORTE itCNICO 

SEAGATE 408438-8771 BBS 

SEAGATE 408438-8222 SUPORTE itCNICO 

SEAGATE 408438-8137 SUPORTE VIA FAX 

TOSHIBA AMERICA 714*8374408 BBS 

TOSHIBA AMERICA 800*9994273 SUPORTE itCNICO 

WESTERN DIGITAL 714*753*1234 BBS 

WESTERN DIGITAL 8003324778 SUPORTE T&CN1C0 

£ verdade que uma ligagao para os Estados Unidos custa caro, nem to- 
dos falam inglds fiuentemente e nem todos possuem um modem. Por 
outro I ado, quern possui o manual do seu WINCHESTER encontra nele 
todas as informagoes necessSrias. Exija o manual. 
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Quern ainda nao comprou o seu WINCHESTER esta avisado de que 
o manual 4 necessdrio. Para quern j& comprou sem manual o problema a 
s6rio. Existem mats de 1500 modelos diferentes de WINCHESTER e nao 
a possfvel colocar em um livro as caracterfsticas de todos eles. Os 
telefones dos fabricantes, indicados acima, sao uma boa indicagao de 
como conseguir os manuais. Vale a pena tamb6m procurar o vendedor e 
tentar conseguir a documentagao que nao foi fomecida. Procuraremos 
amenizar o sofrimento desses usufirios, apresentando uma tabela com as 
caracterfsticas de alguns modelos de WINCHESTER. 

FABRICANTE M0DEL0 TIPO CYLS HEADS SECT WC0MP LZONE SIZE 

SEAGATE ST4038 MFM 733 5 17 - 733 32M 

SEAGATE ST124 MFM 615 4 17 - 670 21M 

SEAGATE ST138 MFM 615 6 17 • 615 32M 

SEAGATE ST151 MFM 977 5 17 • 977 42M 

SEAGATE ST213 MFM 615 2 17 300 670 10M 

SEAGATE ST225 MFM 615 4 17 300 670 21M 

SEAGATE ST251 MFM 820 6 17 • 820 42M 

SEAGATE ST253 MFM 989 5 17 - 989 43M 

SEAGATE ST4026 MFM 615 4 17 - 670 21M 

SEAGATE ST4051 MFM 977 5 17 - 977 42M 

SEAGATE ST4053 MFM 1024 5 17 - 1024 44M 

SEAGATE ST4085 MFM 1024 8 17 • 1024 71M 

SEAGATE ST4086 MFM 925 9 17 - 925 72M 

SEAGATE ST4096 MFM 1024 9 17 - 1024 80M 

SEAGATE ST4097 MFM 1024 9 17 - 1024 80M 

SEAGATE ST1100 MFM 1072 9 17 • 1072 83M 

SEAGATE ST1106R RLL 977 7 26 • 977 91M 

SEAGATE ST138R RLL 615 4 26 * 615 32M 

SEAGATE ST157R RLL 615 6 26 - 615 49M 

SEAGATE ST225R RLL 667 2 31 - 670 21M 

SEAGATE ST1150R RLL 1072 9 26 300 1072 128M 

SEAGATE ST1156R RLL 1072 7 36 300 1072 138M 

SEAGATE ST238R RLL 615 4 26 - 670 32M 

SEAGATE ST250R RLL 667 4 31 • 670 42M 

SEAGATE ST277R RLL 820 6 26 • 820 65M 

SEAGATE ST279R RLL 989 5 26 128 989 65M 

SEAGATE ST4135R RLL 960 9 26 * 960 115M 

SEAGATE ST4144R RLL 1024 9 26 • 1024 122M 

SEAGATE ST1111E ESDI 1072 5 36 * • 98M 

SEAGATE STU56E ESDI 1072 7 36 * * 138M 

SEAGATE ST1201E ESDI 1072 9 36 * * 177M 

SEAGATE ST2106E ESDI 1024 5 34 * * 89M 

SEAGATE ST2182E ESDI 1453 4 54 * * 160M 

SEAGATE ST2383E ESDI 1747 7 54 * * 337M 

SEAGATE ST4182E ESDI 969 9 34 * - 151M 

SEAGATE ST4383E ESDI 1412 13 34 * - 319M 

SEAGATE ST4384E ESDI 1224 15 34 ■ ■ 319M 

SEAGATE ST4442E ESDI 1412 15 34 ■ • 368M 

SEAGATE ST4766E ESDI 1632 15 53 • ■ 664M 

CORE AT32 MFM 733 5 17 - * 31M 

CORE AT30 MFM 733 5 17 • • 31M 

CORE AT40 MFM 988 5 17 - - 42M 

CORE AT63 MFM 988 5 17 * • 42M 

CORE AT72 MFM 924 9 17 • - 107M 

CORE OPTIMA 30 MFM 733 5 17 • • 31M 

CORE OPTIMA 40 MFM 963 5 17 ■ ■ 41M 

CORE OPTIMA 70 MFM 918 9 17 • • 71M 

CORE AT32 RLL 733 5 26 * - 48M 

CORE AT30 RLL 733 5 26 - • 48M 

CORE AT40 RLL 988 5 26 * - 61M 

CORE AT63 RLL 988 5 26 * * 65M 

CORE AT72 RLL 924 9 26 • • 163M 

CORE OPTIMA 30 RLL 733 5 26 • ■ 48M 

CORE OPTIMA 40 RLL 963 5 26 * • 64M 

CORE OPTIMA 70 RLL 918 9 26 - ■ 109M 

CORE HC 40 ESDI 564 4 35 • • 40M 

CORE HC90 ESDI 969 5 35 • - 91M 

CORE HC 150 ESDI 969 9 35 • - 156M 

CORE HC 260 ESDI 1212 12 35 * • 260M 

CORE HC 310 ESDI 1582 12 35 * - 311M 

FUJITSU M2227D2 MFM 615 8 17 - ■ 40M 

FUJITSU M2242AS2 MFM 754 7 17 • • 43M 

FUJITSU M2243AS2 MFM 754 11 17 • • 67M 

FUJITSU M2243T MFM 1186 7 17 • • 68M 

FUJITSU M2225DR RLL 615 4 26 • • 32M 

FUJITSU M2226DR RLL 615 6 26 * * 49M 

FUJITSU M2227DR RLL 615 8 26 * * 65M 

FUJITSU M2243R RLL 1186 7 26 * ■ liOM 

FUJITSU 2244E ESDI 823 5 35 • • 73M 

FUJITSU 2245 E ESDI 823 7 35 • • 120M 

FUJITSU M2246E ESDI 823 10 35 • • 171M 
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Requer micro PC 286/386/486, video VGA 256 Kb, drive 1 .2 Mb e mouse. 

Pre$o: US$ 72 

Inclui PRO KIT master, topview e disco com shapes, telas, alfabetos, etc. 



versao 5.0 



Prepare seu micro para o mais novo langamento da PRO KIT: o GRAPHOS 111 
versao 5.0, compativel com placas VGA/SVGA de 256 Kbytes (minimo). 
Totalmente escrito em Assembler, ele e o mais r&pido editor para o PC e urn 
dos poucos que nao exige megas e megas de memoria para ser executado. Tudo 
nele e simples e facil de usar - a inteface de comunicagao com o usuario foi 
redesenhada para dar suporte integral ao mouse, sem contudo perder a 
operacionalidade eficiente, que e uma das principals caracteristicas deste 
software MADE IN BRAZIL. 

Aldm dos recursos tradicionais de edigao grdfica, tais como linhas, 
retangulos, raios, circulos, fill, spray, inversao, rotagao, espelhamento, etc, 
o GRAPHOS III possui ainda ferramentas especiais para code e duplicagao 
de pedagos da tela, zoom para corregoes delicadas nos desenhos, troca 
de atributos e uma nova ferramenta para uso com os pad roes gr&ficos 
pre-definidos. 

A grande novidade desta versao e o arquivo Clipboard, que pode 
manipular ate 180 telas. Essas telas podem ser posteriormente 
compactadas num unico arquivo e integrar urn sistema de slide show 
simples e facil de programar. E possivel controlar o tipo de efeito 
especial que ser6 usado para mostrar a tela, o tempo que ela 
permanecera mostrada e ate mesmo associar uma tecla a cada 
tela. 0 sistema pode criar urn programa executive!, para o slide 
show, que independe do GRAPHOS III para funcionar. 

0 novo editor de alfabetos permite que o usuirio crie e edite 
alfabetos proporcionais, com 2 pixels de altura ate 16 pixels. 

Novos recursos de clipping e captura grafica aumentam 
consideravelmente o poder dos editores de pad roes e de alfabetos. 

A edigao da palette ficou mais simples ainda. Com poucos 
comandos do mouse e possivel alterar as intensidades de RGB 
de cada cor Alem disso, 6 possivel controlar a intensidade 
(claro/escuro) das cores e calcular o tom de cinza 
correspondente da cor. 

0 programa GRAPHOS III ainda permite que se grave ou 
recupere arquivos no formato TIFF, nao compactado, com 
definigao de cores. 



Aprenda Assembler \ 
sem sair de casa 



Esta e sua chance de aprender uma das 
mais poderosas linguagens de programa- 
gao a disposigao dos usu&rios de micro- 
computadores compativeis com o PC. 

Em Assembler voce dispoe de acesso 
total ao microprocessador, ks portas I6gi* 
cas, as placas controladoras, etc. Outras 
vantagens sao: cddigo fonte compacto, 
velocidade total de processamento e bi- 
bliotecas de rotinas e fungoes. 

Programar em Assembler e extrema- 
mente simples pois com pouco mais de 20 



instrugoes voce cria qualquer tipo de 
programa. Alem disso, voce estara usando 
a linguagem preferida das maiores “feras” 
profissionais de criagao de software. 

Ao fazer a inscrigao, voce recebe a 
primeira ligao. Cada ligao 6 seguida por urn 
teste que, ap6s sua avaiiagao, d^ pros- 
seguimento ^s outras etapas. 

Complemento VGA: 

Para os usuarios que pretendem estar 
em dia com as novas tendencias de inter- 



faces graficas, a PRO KIT esta oferecendo 
urn complemento (fornecido junto com o 
curso) dedicado exdusivamente a progra- 
magao para placas VGA. 

Sao rotinas e fungoes para acesso direto 
k memdria de video, impressao, suporte 
total para mouse, janelas, botoes funcio- 
nais, shapes, telas, etc. 

Faga agora mesmo sua inscrigao. 



Autor e orientador: RENATO DEGIOVANI 



[ ] Assembler em 1 0 ligoes US$ 60 



[ ] Complemento VGA US$ 40 



Nome:_ 



Enderego:. 
CEP:. 

Data:. 
Equipamento: _ 



Cidade:. 



UF:_ 



. Total CR$ 



_ Cheque:. 



. Banco:. 



Transforme o valor em ddlar para Cruzeiros Reais pela 
cotagao do dblar comercial do dia do pedido. Envie cheque 
nominal k PRO KIT InformAtica e Editora Ltda - Caixa Postal 
108.046 - CEP 24121-970 - Niter6i/RJ 






HITACHI 


DK511-5 


MFM 


699 


7 


17 * 


- 40M 


HITACHI 


DK511-8 


MFM 


823 


10 


17 - 


• 67M 


HITACHI 


DK521-5 


MFM 


823 


6 


17 - 


- 51M 


HITACHI 


DK522-10 ESDI 


823 


6 


36 * 


• 103M 


HITACHI 


DK514-38 ESDI 


903 


14 


51 - 


- 330M 


MAXTOR 


XT-1050 


MFM 


902 


5 


17 • 


• 38M 


MAXTOR 


XT-1065 


MFM 


918 


7 


17 - 


- 56M 


MAXTOR 


XT-1085 


MFM 


1024 


8 


17 - 


■ 71M 


MAXTOR 


XT-1105 


MFM 


918 


11 


17 ■ 


■ 87M 


MAXTOR 


XT-1140 


MFM 


918 


15 


17 • 


- 113M 


MAXTOR 


XT-2085 


MFM 


1224 


7 


17 ■ 


- 74M 


MAXTOR 


XT-2140 


MFM 


1224 


11 


17 - 


• 117M 


MAXTOR 


XT-2190 


MFM 


1224 


15 


17 • 


• 150M 


MAXTOR 


XT-1120R 


RLL 


1024 


8 


25 ■ 


* 104M 


MAXTOR 


XT-1240R 


RLL 


1024 


15 


25 ■ 


- 196M 


MAXTOR 


EXT-4175 ESDI 


1224 


7 


34 • 


■ 149 M 


MAXTOR 


XT-4170E ESDI 


1224 


7 


35 * 


■ 157M 


MAXTOR 


EXT-4280 ESDI 


1224 


11 


34 - 


- 234M 


MAXTOR 


XT4380E ESDI 


1224 


15 


35 - 


- 338M 


MAXTOR 


XT-8380E ESDI 


1632 


8 


54 ■ 


■ 360M 


MAXTOR 


XT-8610E ESDI 


1632 


12 


54 ■ 


• 541M 


MAXTOR 


XT-8760E ESDI 


1632 


15 


54 ■ 


• 676M 


QUANTUM 


0-540 


MFM 


512 


8 


17 - 


- 36M 



OBSERVAQdES: 



1) Todos os WINCHESTERS MFM possuem 17 setores por trilha. 

2) Os WINCHESTERS RLL NORMALMENTE possuem 25 ou 26 setores 
por trilha. 

3) Os WINCHESTERS ESDI possuem 34, 35, 36 ou 54 setores por 
trilha. 

4) Para os WINCHESTERS MFM, RLL e ESDI, as caracterfsticas ffsicas 
devem ser fomecidas durante a formatagao ffsica. No caso de placas 
controladorasde WINCHESTER sem ROM, as caracterfsticas ffsicas devem 
tamb6m ser fomed-das no SETUP. 

5) Quando os parffmetros WPCOM (cilindro de pr6 compensagao) e 
LZONE (zona de estacionamento das cabegas) sao omitidos na tabela 
adma, signifida que deve ser colocado no SETUP o valor 65535. 

6) Para formatar fisicamente WINCHESTERS MFM e RLL pode ser 
usado qual-quer programs que realize formatagao ffsica: CHECKIT, DISK 
MANAGER, PC TECHNICIAN, IBM ADVANCED DIAGNOSTICS ou ate mesmo 
urn utiliterio para formatagao gravado, juntamente com o SETUP, nas 
ROMS de algumas placas de CPU. 

7) Os WINCHESTERS com o par§metro LZONE omitido realizam 
estacionamen-to autom&tico das cabegas quando sao desligados (AUTO 
PARK). Aconselha-se nao usar programas que realizam o estadonamento 
das cabegas com esses mo-delos de WINCHESTER. 

PaMmETROS de WINCHESTERS IDE 

Para aqueles que nao possuem os manuals, aqui vao as caracterfsticas 
I6gicas dos WINCHESTERS IDE, para serem usadas no SETUP. Nao 
pretende-mos aqui suprir a ausgnda de manuais, nem incentivar a 
aquisigao de WINCH ESTERS sem seus manuais. A lista deve ser encarada 
como um "quebra gal ho". 



FABR. MODELO 


GEOM. L6GICA 


SIZE 




CYL 


H SEC 






SEAGATE 


ST1201A 


804 


9 48 


177M 


SEAGATE 


ST1057A 


1024 


6 17 


53M 


SEAGATE 


ST1090A 


335 


16 29 


79M 


SEAGATE 


ST1102A 


1024 


10 17 


89M 


SEAGATE 


ST1111A 


402 


10 48 


98M 


SEAGATE 


ST1126A 


469 


16 29 


HIM 


SEAGATE 


ST1133A 


477 


8 60 


117M 


SEAGATE 


ST1144A 


1001 


15 17 


124M 


SEAGATE 


ST1156A 


■ 536 


9 56 


138M 


SEAGATE 


ST1162A 


603 


16 29 


143M 


SEAGATE 


ST1186A 


636 


9 56 


164M 


SEAGATE 


ST1239A 


954 


12 36 


211M 


SEAGATE 


ST125A 


615 


4 17 


21M 


SEAGATE 


ST138A 


615 


6 17 


32M 


SEAGATE 


ST157A 


733 


7 17 


44M 


SEAGATE 


ST9051A 


820 


6 17 


42M 


SEAGATE 


ST9052A 


980 


5 17 


42M 


SEAGATE 


ST9077A 


669 


11 17 


64M 


SEAGATE 


ST9096A 


980 


10 17 


85M 


SEAGATE 


ST9144A 


980 


15 17 


127M 


SEAGATE 


ST351A 


820 


6 17 


43M 


SEAGATE 


ST3051A 


820 


6 17 


43M 



SEAGATE ST3096A 


1024 


10 


17 


89M 


SEAGATE ST3120A 


1024 


12 


17 


106M 


SEAGATE ST3144A 


1001 


15 


17 


130M 


SEAGATE ST3283A 


1024 


12 


39 


245M 


SEAGATE ST1400A 


1018 


12 


53 


331M 


SEAGATE ST1401A 


726 


15 


61 


340M 


SEAGATE ST1480A 


895 


15 


62 


426M 


SEAGATE ST280A 


1024 


8 : 


17 


71M 


SEAGATE ST2274A 


536 


16 


55 


241M 


SEAGATE ST2383A 


737 


16 


56 


338M 


SEAGATE ST3500A 


1024 


14 


58 


426M 


SEAGATE ST3600A 


1017 


16 


63 


525M 


QUANTUM 40AT 


965 ! 


5 17 


42M 


QUANTUM 52ATLPS 


751 


8 


17 


52M 


QUANTUM 425AT 


1520 


16 


51 


426M 



QUANTUM 80AT 965 10 17 83M 



QUANTUM 105ATLPS 755 16 17 105M 



QUANTUM 


1 12 OAT 


814 


9 32 


120M 


QUANTUM 170AT 


968 


10 34 


168M 


QUANTUM 210AT 


873 


13 36 


209M 


QUANTUM 330AT 


1520 


12 51 


331M 


CONNER 


CP-342 


805 


4 25 


41M 


MAXTOR 


7040A 


981 


5 17 


42M 


MAXTOR 


7080A 


981 


10 17 


85M 


MAXTOR 


8051A 


745 


4 28 


42M 


MAXTOR 


8225A 


615 


4 17 


21M 


MAXTOR 


8050A 


745 


4 28 


42M 


MAXTOR 


7060A 


1024 


7 17 


62M 


MAXTOR 


7120A 


1024 


14 17 


124M 


MAXTOR 


LXT-213A 


683 


16 38 


212M 


MAXTOR 


LXT-340A 


683 


16 38 


337 M 


MAXTOR 


LXT-437A 


842 


16 63 


434M 


MAXTOR 


LXT-535A 


1024 


16 63 


528M 


SAMSUNG 


i 3061A 


977 


7 17 


60M 


SAMSUNG 


i 3101A 


776 


8 33 


100M 


SAMSUNG 3062A 


917 


15 17 


120M 



0BSERVAQ6ES: 

1) A geometria L6GICA deve ser usada no SETUP. 

2) Os parSmetros WPCOM e LZONE devem ser definidos no SETUP com 
um valor igual ao nOmero de cilindros acresddo de 1, ou entao com o valor 
65535, que corresponde a NOT USED. 

3) Os fa brie antes recomendam nao usar programas de estacionamento 
de cabegas em WINCHESTERS que fazem estacionamento automStico. 

4) Astabeias apresentadas aqui nao pretendem substituiros manuais, 
e sim, pos-sibilitar a realizagao do SETUP no caso da ausSnda dos 
mesmos. 

5) Todos os WINCHESTERS IDE possuem AUTO PARK. 

PARAMETROS DE WINCHESTERS SCSI 

A seguir apresentaremos os parff metros de vSrios WINCHESTERS 
SCSI. Esses patemetros nao devem ser usados no SETUP CMOS, pois 
esses WINCHESTERS devem ser definidos como NOT INSTALLED. Todos 
os WINCHESTERS SCSI possuem em sua placa controladora um BIOS que 
realiza todo o acesso, sem o auxflio do BIOS da placa de CPU. Os 
parSmetros dos WINCHESTERS SCSI sao usados apenas no caso da 
necessidade da realizagao de uma formatagao ffsica. Essa formatagao 6 
normal mente realizada pelo BIOS da placa controladora, que pode ser 
chamado atrav6s do programa DEBUG, como jd fol mostrado neste artigo. 



FABRICANTE 


MODELO 


CYL 


HEAD SECT SIZE 


SEAGATE 


ST1090N 


1068 


5 


29 


79M 


SEAGATE 


ST1096N 


906 


7 


26 


83M 


SEAGATE 


ST1111N 


1068 


5 


36 


98M 


SEAGATE 


ST1126N 


1068 


7 


29 


HIM 


SEAGATE 


ST1133N 


1268 


5 


36 


U6M 


SEAGATE 


STU56N 


1068 


7 


36 


138M 


SEAGATE 


ST1162N 


1068 


9 


29 


142M 


SEAGATE 


ST1201 


1068 


9 


36 


177M 


SEAGATE 


ST1239N 


1268 


9 


36 


210M 


SEAGATE 


ST125N 


407 


4 


26 


21M 


SEAGATE 


ST138N 


615 


4 


26 


32M 


SEAGATE 


ST177N 


921 


5 


26 


60M 


SEAGATE 


ST2106N 


1022 


5 


26 


91M 


SEAGATE 


ST225N 


615 


4 


17 


21M 


SEAGATE 


ST251N-0 


820 


4 


26 


43M 
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SEAGATE 


ST251N-1 


630 


4 


34 


43M 


SEAGATE 


ST277N-0 


820 


6 


26 


64M 


SEAGATE 


ST277N-1 


628 


6 


34 


64M 


SEAGATE 


ST296N 


820 


6 


34 


64M 


SEAGATE 


ST4182N 


969 


9 


26 


155M 


SEAGATE 


ST4766N 


1632 


15 


54 


676M 


MAXTOR 


XT4170S 


1224 


7 


36 


157M 


MAXTOR 


XT4380S 


1224 


15 


36 


337M 


MAXTOR 


XT8330S 


1632 


8 


54 


360M 


MAXTOR 


XT8760S 


1632 


15 


54 


675M 


MAXTOR 


XT8702S 


1490 


15 


54 


616M 


CONNER 


CP-3100 


776 


8 


25 


104M 


FUJITSU 1 


M244SA 


823 


5 


35 


73M 


HITACHI 1 


DK512C-17 


819 


10 


35 


134M 


HITACHI 1 


DK522C-10 


819 


6 


35 


88M 


MAXTOR 


XT-3170 


1224 


9 


48 


146 M 


MAXTOR 


XT4170S 


1224 


7 


36 


157M 


MAXTOR 


XT-4280S 


1224 


15 


36 


338M 


MAXTOR 


XT-8380S 


1632 


8 


54 


360M 


MAXTOR 


XT-8760S 


1632 


15 


54 


676M 


MICROPOUS 


1576*11 


1224 


11 


36 


243M 


MICROPOUS 


1577-12 


1224 


12 


36 


266M 


MICROPOUS 


1577-13 


1224 


13 


36 


287M 


MICROPOUS 


1578-14 


1224 


14 


36 


310M 


MICROPOUS 


1578-15 


1224 


15 


36 


332M 


MINISCRIBE 


8425S 


615 


4 


17 


21M 


MINISCRIBE 


9380S 


1218 


15 


36 


336 M 


TOSHIBA 


MK153FB 


830 


5 


35 


74M 


TOSHIBA 


MK154FB 


830 


7 


35 


104M 


TOSHIBA 


MK156FA 


830 


10 


35 


148M 



FORMATAGAO FfSICA DE WINCHESTERS IDE 

Esse 6 atualmente um dos assuntos mais polbmicos no mundo dos 
PCs. Osfabricantesfomecem certas inform agoesque nao estao de acordo 
com o que ocorre na pfatica. Todos os WINCHESTERS podem ser 
formatados sem problemas, exceto o IDE e o SCSI. 

Os WINCHESTERS MFM e RLL podem ser formatados, por exemplo, 
com os seguintes programas: 

a) Formatador ffsico fomeddo pelo fabricante 

b) Formatador ffsico na ROM da interface, caso exista. 

c) Formatador ffsico na ROM da piaca de CPU, caso exista. 

d) IBM ADVANCED DIAGNOSTICS 

e) CHECKIT 

f) DISK MANAGER 

g) PC TECHNICIAN 

Os WINCH ESTERS ESDI devem se r form atados co m o formatador ffsico 
existente na ROM de sua interface. 0 mesmo ocorre com o SCSI. 

Quanto aos WINCH ESTERS IDE, uma avalanche de info imagoes contra- 
ditbrias sao encontradas. A SEAGATE afirma que os WINCHESTERS IDE e 
SCSI jb sao formatados fisicamente na fabrics e nao necessitam de 
formatagao ffsica. Isso 6 uma grande verdade. Em certos WINCHESTERS 
pode serencontrado um aviso impresso na prbpria carcaga: “DO NOT LOW 
LEVEL FORMAT” (nao formate fisicamente). Em certos manuais 6 dito que 
um WINCHESTER IDE nao deve ser formatado em hipbtese alguma pois 
serao apagadas importantes ta betas de setores defeituosos e de translagao 
entre a geometria I6gica e a geometria ffsica. A SEAGATE avisa que a 
formatagao de um WINCHESTER IDE pode danifiCcHo permanentemente, 
ou reduzir sua performance, ou reduzir sua confiabilidade. Tbcnicos da 
SEAGATE afirmam que se um WINCH ESTER IDE for fisicamente formatado, 
deve ser enviado para a fa brie a para que possa ser recuperado. A ELEBRA, 
distribuidora de WINCHESTERS SEAGATE no Brasil, afirma que tern 
condigoes de recuperar "alguns modelos" de WINCHESTERS IDE for- 
matados indevidamente. Artigos sobre o assunto encontrados em revistas 
tbcni-cas (Ex: PC MAGAZINE) explicam que um WINCHESTER IDE nao deve 
ser formatado pois a formatagao ffsica destrbi info imagoes de SERVO- 
CONTROLE que s6 o fabricante pode gravar, mas na verdade muitos 
WINCHESTERS quando formatados inibem intern amente o comando de 
formatagao e nao se danificam (???). 0 programa CHECKIT 2.17 avisa na 
sua documentagao que nao deve ser usado para formatar WINCHESTERS 
IDE. Nenhum fabricante fomece uma informagao precis a como: 



Esses modelos nao devem ser formatados em Npbtese alguma. 

Esses modelos podem ser formatados com o programa X. 

Esses outros devem ser formatados com o programa Y. 

Esses outros podem ser formatados com qualquer formatador. 

A informagao que 6 sempre encontrada 6 “nao 6 necessbrio formatar”, 
ou “nao formate”. 

Por outro lado a pfatica tern mostrado que muitos WINCHESTERS IDE 
danificados sao recuperados com uma formatagao ffsica. 0 prbprio 
programa DISK MANAGER, da SEAGATE, possui no seu menu opgoes de 
alguns modelos IDE (ST157A, ST138A, ST125A). Modelos como o 
ST157A, um dos mais vendidos no ano de 1991, t£m sido formatados pelo 
DISK MANAGER desde o seu langamento sem problemas. 0 CHECKIT 3.0 
tern sido usado para formatar WINCHESTERS ST351A, ST157A, QUAN- 
TUM 52AT, ST 1180A, ST3120A e outros. A orientagao que temos para dar 
a respeito b a seguinte: 

a) Quando instalar seu WINCHESTER IDE nao serb necessbrio formatb- 
lo fisicamente. Deve ser usado apenas o FDISK e o FORMAT. 

b) Se seu WINCHESTER IDE jb esfa formatado e precisa de uma 
formatagao ffsica, formate utilizando um software que possua seu model o 
de WINCHESTER no menu de modelos suportados. Por exemplo, o DISK 
manager possui em seu menu os modelos ST157A, ST138A e ST125A. 

c) Nunca realize uma formatagao ffsica de um WINCHESTER IDE 
usando um software que nao seja fomeddo pelo prbprio fabricante do 
WINCHESTER. 

d) Procure algubm que jb tenha formatado antes um WINCHESTER igual 
ao seu e verifique que programa foi utilizado. 

e) Nao formate WINCHESTERS IDE com o utilifario de formatagao ffsica 
exis-tente nos SETUPS de di versos ATs. Esse formatador ffsico deve ser 
usado apenas para WINCHESTERS MFM. 

PARTigAO E FORMATAGAO L6GICA DE DOIS WINCHESTERS 

£ interessante notar que no WINCHESTER nao ficam gravados os 
nomes dos drives Ibgicos, e sim, uma indicagao das partigoes nas quais 
o WINCHESTER foi dividido. Caso exista um Gnico WINCHESTER instalado, 
o DOS usarb para designar seus drives Ibgicos as letras C, D, E, etc. Caso 
existem dois WINCHESTERS instalados, o DOS usarb as seguinte sequdneia 
de letras: 

Drive C: Partigao primbria do primeiro WINCHESTER. 

Drive D: Partigao primbria do segundo WINCHESTER. 

Aseguirserao usadas as letras E, F, G... para designar os drives Ibgicos 
da partigao estendida do primeiro WINCHESTER, e as letras seguintes para 
os drives Ibgicos do segundo WINCHESTER. 

Suponha que um sistema possui um Gnico WINCHESTER dividido em 
dois drives Ibgicos C e D. Ao ser instalado um segundo WINCHESTER, 
usado irvteiramente com uma partigao primbria, este passarb a ser 
automaticamente chamado de drive “D\ e a partigao estendida do 
primeiro WINCHESTER, que antes era o drive “D", passarb a ser 
automaticamente chamada de drive “E”. 

Ao instalar dois WINCHESTERS em um mesmo sistema, deve ser tam- 
bbm usado o programa FDISK e o programa FORMAT. Ao detectar que 
existem dois WINCHESTERS instalados, o FDISK col oca fa no seu menu 
principal uma opgao a mais, para seleclonar o disco 1 e o disco 2 (ffsicos). 
Como medida de seguranga, aconselhamos que seja instalado o primeiro 
WINCHESTER, feita sua partigao e sua formatagao Ibgica. Retira-se o 
primeiro WINCHESTER e instala-se o segundo, realiza-se a partigao e a 
formatagao Ibgica. Depois disso, os dois WINCHESTERS, jb iniciafizados, 
poderao ser usados em conjunto. Este m&todo de instalagao 6 “b prova 
de distraldos”. 

a LAERCIO VASCONCELOS 6 Engenheiro Eletronico 
e autor dos livros: Como montar seu prdprio 
PC, Concerte voce mesmo o seu PC, Arquitetua 
do PC E IBM PC: Dicas e Macetes de software . 
Adaptagoes : Engenheiro Victor Hugo Vinhas 
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CENTRAL INFORMATICA LTDA. 

RUA BARAO DE ITAPETININGA, 88 CONJ.707 - CEP:01 042-000 - SAO PAULO - SP 

TEL.:(01 1)256-2544 / FAX: (01 1)259-8430 / BBS: (01 1)257-1528 




APLICATIVOS MAIS VEN DIDOS 



PRECOS 5 1/4DD 

considerar a URV do dia do pedido 



1 .50 a vista 
2.03 cartao 



im sk; 




1394 READ MY DISK! Reaipera dados ASCI de um cfisco daraficodo. 
1687 READ.COM Um letter rapido da ofquw» de lotto ASCI 

LmUTARIOS HARD DRIVE 

2445 BACKRfM Extob ala ce backup* ragulor w . 



PROGRAMAS ORIGINAIS 
PC-SIG (FROM U.S.A.) 

COM DOCUMENTA^AO COMPLETA 
MAIS DE 4.000 
REDf E UTIUTARIOS 

?279 EASY MAI. - NETWORK BAAL Programa pedal aiafromco, fool de 

2638 MARX MENU Mm da corWok de finougoem. 

3001/3016/17/18 SFiVARFFOFn LT[^ a ttcpande Wes 

2507 TOfWARECAN O.S. Rads de oma load jV 02 computedores. 

ifnlfTARKJS* 18 ^ 02 asn *** aAorm 

2916 ADUB ZIP MEMJ Comprime seta arquivo* de muuca ADU8 
2316 COMTOEXE ConverteXom am compact Ex» 

HU ISiLtsssafsv. o°S$- 

2018 LHASUTUTcS Moiof comm cta aio com formats populares 
2316 L ZE ComumJu um owyiiw. dm polo m e fad e 
2316 LZESHELL Mude arquivot. Com para. Exe com urn comando 
1364 PKLTTE Plrograma lao) da compodocoo de arquivos. 

133Q PKPAK, PKCNPAK. AND PKSPXCoiywte da uttfario * ff 
onwwon wnjo . 

1364 PKZFIND Dmcufara • vo a qualquer arquivo. 

1364 PK7P, PKUNZIP. PKSfX Coloque man programs na sua Winchester. 
1364 PK2MENU Exfcai rapidoments arquivo* dot arquivos Zipped 

UTIUTARIOS DE COPIAS 

1451 DISK DUPLICATOR Faar copws mu&pJm de dnco* 

1279 DISKDUPE Dupfco rnuito* ntqgrama s ou dwoi 
1201 EZ-D6C0PY DmtisW, rfcApIkocoo de cfaco*. 



1201 EZ-D 6 COPY Dm wderna do dudicoaio do dncot. 

2391 PLAYBACK Rrnatro do b^WPode outomoteor torefas. 

CATALOGADORES DE DISCO E ETIQUETADORES 

1049 DISK CATALOGWG PROGRAM Compile um caidogo de todos a. 

12B6H5K5CAN Cria um ca talo go de mus arquivo* de duquetes. 

2026 LAS 8 UB 1 bnprime eliquetes da disco am um HP Lsarjat H. 

2579 MAXCAT OtgSsize aaSogua saw cfequales. 



1997 PMCAT Um calalogadordaAoo da bom axpeckx 

UTHJTAHOS DEGEttNCIAMENTO DEARQUIVOS 

2272 4EDIT Editor p/ dasaicoes da arquivo 4 DOS 



2272 4HXT Editor pi da so iooas da arquivo 4 DOS 

2625 DARUTK Maio duzio deMorim^d^ ri^do, vafc*o«. 

2830 DOG-DISK ORGAMZER Task a oraonaaoaaw disco ngida 
2665/66 EXTEND-A-NMAE Gerenda arquivo da modo novo a «dkmla. 

idi crru-vr r ? • * if 



1869 BAKTRACK Bockun tam problemos p/ o tau hard drwe. 

2199 CUDUP locotza tabs ot anjutvo* dupfcodo* am hard dmm. 

2639. DOS TOOLBOX Garanaam^dadfqu^ e uhUanot am garaE 

PROGRAMAS DE MENU 

444 EZ-MB4U Poda sans programos rapido a fa dlm a n la . 

1301 FRONT END Dasenvokane nto de maou tacnico p/ programodores. 
631HOM IV:HARD DISK MB4U SYSTEM Aossa a eaabdb oSrco da 10.000 

SK/TcON MBJU SELECTION PROGRAM Sekbona programos da um 

m? mSEJmatk: Um ststema da menu da <£sco rigido tj sanhas. 

1635 MENUEASE Aceseo m optasroe s no ss» rfecp ngido. 

1786 M ENU X Um s i s ta uw da maou com mutes opcoai. 

2239 SYS1B4S MANAGER Garanda os sisknn^ *DOS a disco rigoda 

SEGURANCA 

1382 SECURUTY Escondt orauMos yJ qua so voce pocsa ler. 

1787 THE GUARDIAN Saguranca. Voce noo poda desvior com um 'booT da 

239*IHIDE - fTMontando os saus dodos am sagredo sam asoondar. 

Itll $ci5?R 

/so j xtunii nusau o sou compusodor de uso noo ousoraodo. 

3002 SNOOP BYLORANCOM U^o>ai' parUb^os bisUhohiros de 
compuhs dor. 

2444 SYSTBA GUARDIAM PACKAGE Datam "aMolos fcojan', virus a addantas. 
2465 HAE MASTER Imprima lelolorios. Quam usou o p t og i uma. Qto tempo 

UTlLiTARIO, SISTEMAS OU HARDWARE 

2926 386 TEST Diagnodioo de sifamo na plaai mae 
874 400 Rave as area* da cominucacom oe DOS • BIOS. 

2913 ADCACHE Ura mamona umondida dtsco cacbe 
2207 BATUT1 QuosalOOam^^mmconlrXXDOSu 
2894 BLANKS Pare o saw disco ri^do a esvozia a tala 
2547 BOOT. SYS Explore dlarenla i modos da ligcv o sau PC. 

2391 BRfTELNE Comrala a cor da cursor a o sau fcsmonho. 

1682 CAPACITY Anresawta g rafi c nm a nt e, o aspoco de disco livre 
} 761 CMOS-RAM/CHBCCMDS Ragistrq os dodos da bahrio p/ recorregar. 
1370 CO iQRSE T Aprasanhs um mopo ora cores doponivais no tela. 

2019 DISKTEST Ti^de W eesaW am qualquerW 

2913 DVORAKKB USBrS GUDE R*oofi^7oT^ do ledado p/ cWak 

2 1 43 EAS Y FORMAT Um lormalador de Squats diverlido p/ todoa os 

2353 NTTMENU Um sidama da m^TinSerafcyo o/ conlrok LAK 

1503 MAXI FORM Formota fVoumenior a capadoade da armazenamenlo de 

d wq uats 

789 MONTAGE2 Um dhplor da finho EGA colorida 

2913 PCLOCK BY SNGBMNGBl Cor*Ja o aoasso a quasar lugor do 



2234 V7CURS Use cursor qua noo pbco no dksetV7VGA. 
2858 VPIC Um vizuobsador/conversor para EoA/VGA/SUGA 

ASTRONOMIA E EXPLORACAO ESPACIAL 

no jlt» mmoa* Kmofm opolo. 
la ostrortomio para windows. 



Endpre ot niaconismos do sisterno to 
BWAERIS IfCB Canulos do mavirnaito doe c 
Dnplar gratico de p rofec o o m e rco t or . 



2890 LDC: LED'S CHENGE DRECTORY Fo? 1 
1 533 LEOCE TOOLKIT Traz aWnoaiidade UMX pan 
2650 PR S eledono vorios orquwos de um deplny dir. 
1305 PR OCE SS Acasto imaifa to o muitps pro 
598 PROFESSIONAL MASTER KET Simula 60 s 
ii864 QUCKSTART Tome um EM, mob foal 



seres 00 s arqurvos. 

TORY Faz Irocra faceis enira (firatonos. 
oortalidode UNK pan o DOS. 



NORTON. Excalarde. 
lo qua um Macintosh 



• rna, do qua um 




962 PDVM O Sharewar e Vimjmoquino virtual. 

2188 PBISONAIC* SCRTO4 fe iSra proft»ionait ^ aocuamadorm C. 

1537 PROCON UlUnES TICS abadece com um relogm, poupadorde tela a 

mak. 

2313 PSEARCH Locoliza qualquer aroumo. por noma ou tado interno. 

7866 QLRXX Um tolvodordafeloi, coloriJo a inter mra nla. 

2234 REM} Ewinta do orquiw Batch loalitado. 

2690 SCROLL BACK ! Vwnfaa o anPScTiela p/ lab. 

2866 SC RUTH. Um emciador qua deoco o Mo vozn. 

2234 SB Um saktor da cores c/DOS ou OS/2 

3003 SENTRY Um siskma pi detector virus no oompuksda. 

2234 SNOOP Explore EGA 9 VGA BIOS. 

2481 SOFT 67 Lmi co-procnsada metemabco no memorio retiderde. 

2380 SWAP SHOP Tiogsakbawca m anb portos oe inyressoa 
2926 UMAX Tide o sau gererie da mamma 



APLICATIVOS WINDOWS 



2533 EARTHWATCH Dnplav aoficoda p rofoc o o mercator. 

1070 PARTICLE SIMULATION oimuiocoo das orbdos dot cor pot celettiait. 

298 PLANETS Potiooes dot objetos no ceu 

1614 SKYCLOCK Bemaride s orironomicra e oonversoo da dotes. 

2604 SlttGLOBE As asbekss ta movem. 

QUIMICA - BIOLOGIA - FISICA 

1725 BS1M Simula sokmos ecologioot 

938 CHB4ICAL Condroi e ram roodelo de akmantos quimicos am 3D. 
1469 CRYSTAL Gara a visL&o modelot de cndnt am 3D. 

1045 BiCTRON Colcuks p/mgZ^Mai. 

2184 BBAENT STUDY AID Rwanda a teda o tabolo periodica. 

932 LABCOAT Sdkma de anoka p/ bboratonos 
1076 PC - CAUB Calibre a verifique leihwqt pi in dnimanto. 

1326 SCI • CALC C al culodora oonhficn cj umo simples apraamocoo. 

PROGRAMAS P/ CRIANCAS (IDADE 2 A 10) 

2859 1-2*3 TALK Ensina motemcdica, cj voz humana. 

844 ABC FUN KEYS logos oue ensinam o ABC, numeros e tedodos. 

3078 ABC'S Eroina o aSabeeo, p/pra-moolo a iordim da infancia. 

2838 ABC TALK Programa educaaonal c/ voz humana 
646 AMY'S RRST PRWH Colecno da 06 ngcs divartot. 

2930 ANIMAL OUST Jogo da averdura doecossiskma 

2831/3? TFC ANMATHIaLPHABET Graficos ooloridos com ontmocoo 

2640 ANIMATED SHAPES Ensina a identiBoxoo da formas e axes. 

2709 BALLONS Bolora e notes musicois. 

2669 KaNDON*S BIG LUNCHBOX 18 Jogos eduadivos a diverges. 
2233/267 6 EGA COLORWG BOOK Livro p/ colorir c/ 5 figuras. 

2366 EGA MOUSE PARTT Colore 1 7 figures com 42 cores. 

229 FUNNLS AND BUCKETS Jogos p/ criancm. soma esubtrocno. 

2065 KID PARTT Uvro de colorir. alehonico. 

141? LEARN TO GlffSS jogos oe aritmafiai, d solucao da problemqs. 
2344 MATH AND LOGIC GAMES FOR KIDS Mokmalico e keniem de 
radodnio. 

916 PlAY'N LEARN Emma Idia a numeros. 

343 WORD PROCESSING POR KIDS. Leten extra grondes a iomes. lodl. 
3067 WORD RESCUE Grande averriura pf crianca. ensina a sokfr o r. 
2929 WUNDERBOOK 05 Jogra coJoridos e (fivedidos. 

ENGENHARIA 

1 799 A - FILTER Calcula ot valorm do resistor a capacitor 
9?6|NOT9 Cc - SUI8/EYOR Traraforma notes de oteorvocno de compo, 

1013 COGO Programa da obsovocoo geometric*] coonknodo. 

2253 PC - ECAP Anausa do drcuilo AC 

2508 PC - S CHEM ATICS Desenho esquemat e kfc icos. imprime circurtos. 
2510 PC - BREEZE H Profatos locais da ckcuitos aklronicos. 

1884 RESGPOP Voloses da resistenda padrao para tolerondas. 

1826 SURVEY LAND YONRSELF 'Gum do homem pobre, para 
sobrevivencM na term”. 

MATEMATICA - GEOGRAFIA 

1456 ALGEBRAX Ajyda voce a superar o modo da algebra. 

1756 ANYANGLE Conhece os trianaulos. por denlro e por fora. 

858 ARE YOU READY FOR CALCULI? Revejo oWbda algebra a 

teponome tea 

707 CURVEHT Computecoo makmafica de pontos am airvra. 

1059 DATAPLOT Produza oraficos com quahdada de publicocoo 
088 EPtSTAT Imtoimante da onofisa e stafa li ca vj boo. da dados. 

249 EQUATOR Ensina maiamaSica, qencias e financas pj explorocoo. 
2770 EQUATOR BY PULSE RESCARCH Equacom a graf^ dTmatomahca 
925 LSTSQR Fvncoes matemabcas. PctluvxTMOs, Iogair4rsmos , nrpoenles etc.. 
2864 MATH CASTHE BY JENITINE5 Emino de mamnaiica, airavas da um 
jogo opcode. 

394 MATH PAX Bl Ensina a demostre tecnicm da matematica. 

1663 MATH PLOT Calcuios p/ denfetm e enganheiros. 

2705 SYMBOL - QUEST Taafe sua logrea. manmaina a moterio. 

1507 XYSSFOREGA Displays da ma resolucoo da aquocoes (EGM. 

1508 XYSEE FOR VGA Drsplays de aha resoiucoo de equocoes (VGA} 

1 493 XYSOLVE Algebra, geometria a trigonomelno pj cokgio e foewdade. 



DO CUPMAIE FOR WltCOWS UT1UTABO PARATEXTOS 



DO DISKCOPY FOR WNDOW5 COPIADOR DE DGCOS 



APLICATIVOS SHAREWARE NACIONAIS 





MED vrJ .O 
MULTI vr.1.0 




RL CONTROLE OE BTOQUE 
RL FOLHA DE PAGAMB4TO 
RL 



SB4A&LOTO 
SCTBAA ATRKJM UGHT (W) 
S 6 TBAA BANC. 8 M 

StSTBAA CONTABt ^BMBON 
SOFROGC HOME FAST (W 



CONSOATA 
ECHON SOFTWARE 
HQERJ. SIVA 
FUffTEC/SSA 
SOFTCAD 
FUITTEC/SSA 
RESOLVHWF. 
RLNFOR. 

RLtfFOR 

RLtfFOR. 

RLNFOR. 

RLWFOR. 

GUYEMERM. FlHO 
P0MO R.OUVBRA 
ART5Y5 

PAULO GELORAMO 






SOFROGtC BANK FAST 



TRADUTOR 
TUTOR LOTUS 
ZOO REVSAO SOLAR 



SEMBONMFOR. 
SOFT LOGC NF. 
SOFT LOGIC NF. 
SOFT LOGIC INF. 
SOFT LOGIC INF. 
KANOPUSMOR. 
GUKTO HAVIARAS 
HFXUTONST. 
MARCB.0 CAMJNHA 



PROG. PARA CONS. MBXCO 01 

CONVEKTE PROGAMA MONO P/ MULTI 0 1 
L0T05B4A.ESP0RTWA 01 

SCTJOrTPARA ADVOGADOS 01 

RCHARX) EETRONICO 01 

RECIBOS ONLINE 01 

DATA BASE PARA MARKETING 01 

P l ADM. DE ESCOLAS, ACADEM1AS ETC 02 
P/ ADM. DE CADSTRO DE PACENTE5 02 
SGT. DE CONT. DE ESTOQUE 02 

C0MP.SBT.de FOLHA DE PAG. 02 
P/ CONTROLE DE VIDEO IOC. 02 

MONTA JOGOS POR PROBABUDADE 01 
COMONASENAELOTO 01 

ORC. E PIAK DE 08RAS 04 

DGT.DEJORNAL/RMSTA 01 

SGT. COMP. PARA MOB. 01 

SGT. COMP. DECONTAB. 01 

SGT. Df ORC. DOMESTICO 01 

AGB4TA DE CCMPR0M5S0S 01 

SiSTEMA D£ CONTROLE DE ESTOQUt 01 
SGT. DE COiTT. BANCARKD 01 

RASTREADORDEVRUS (PORTUGUQ 01 
TRADUZ TECTO P/ VARlOb CMOMAS 01 
COMO USARO LOTUS 123 01 

TIACASEUMAPA ASTRAL 01 



DO A0474 
DO A015T 
DO A0077 
DO A059T 
DO A0104 
DO A05T4 
HD A0566 
DO A0410 
DO A04T2 
DO A0456 
DO A041 1 
DO A0413 
DO A0? 72 
DO A0592 
DO A0561 
DO A0476 
DO A0447 
DO A0471 
DO A0476 
DD A0479 
DO A0 480 
DO A0 481 
00 A0457 

DO A0045 
DO A0079 
DO A04T9 



7A SENSACIONAL SORTEIO 



Na compra de qualquer quantidade voce O sorteio sera realizado no dia 24-08-9 
estara concorrendo a um modem. pela Loteria Federal. Boa Sorlel 








eentnai CENTRAL INFO RMATIC A LTDA. 

M RUA BARAO DE ITAPETININGA, 88 CONJ.707 - CEP:01 042-000 - SAO PAULO - SP 

TEL. :(01 1)256-2544 / FAX: (01 1)259-8430 / BBS:(01 1)257-1528 



JOGOS PC 



PRECOS 5 1/4DD 

considerar a URV do dia do pedido 



URV - 1.50 a vista 
URV - 2.03 cartao 



5 1/4HD 



URV - 2.00 a vista 
URV - 2.70 cartao 



JOGOS NOVIDADES 

OOD DKTP NOME/ DESCRICAO 

7)932 0) HD ACE OVER EUROPE (VGA/W) SIMUUDOR DE AVIA0 

J094004 HD AK DUEL (VGA/W/386) SIMULADOR DE AVIAO 

J0939 02 HD ATAC (VGA/W) SIMULADOR DE AVIAO 

J0908 02 HD AV-8B (VGA/W) SIMULADOR DE AVIAO 

7843 03 HD A.TJ». II (W) JOGO DE SIMULACAO AEREA 

786607 HD BETRAYAL AT KRONDOR(VGA/W) ADVENTURE GRAF1C0 EM 

"RPG" 

7)97803 HD BEVERLY HILLBIUES (VGA/W) ADVENTURE GRAHCO ANIMADO 

J0977 01 HD BICYCLE LIMITED EDmON SOUTATRETOKER .BRIDGE ETC 

10884 06 DO BILL* TED (W) JOGO DE A VENTURA 

7)96001 HD BIO MENACE (EGA) JOGO DE AVENTURA 

J0948 01 HD BLAKE STONE: ALIEN OF GOLD AVENTURA EM 3D (VGA/W) 

7)92408 HD BLUE FORCE (VGA/W) ADVENTURE GRAHCO ANIMADO 

JWI 5 07 HD BUZZALDRIN RACE INTO SPACE SIMULACAO CORRIDA ESPACIAL 

J0942 01 HD B-WING COMPLEMENTO PARA 0 X-WING 

JD912C9 HD CAESAR (VGA/W) JOGO DE ESTRATEG1A 

J0929 04 HD CARMEN IN SPACE (VGA/W) INVESTIGACAO KLO ESPACO 

J090501 HD CASTLE FOR WINDOWS JOGO DE ESTRATEGIA 

10847 1 2 HD CHESSMAN1AC 5 BE JON AND I JOGO DE XADREZ (OTEMOH !) 

J0853 07 DD QBERNETIC RANGER (EGA/W) JOGO DE ACAO ESPACIAL 
J0876 03 HD COMANCHE MISSIONS I MISSOES PARA 0 COMANCHE 
7)96303 HD COMANCHE MISSIONS D MISSOES PARA 0 COMANCHE 
J0971 01 HD CORPORATION (VGA) AVENTURA EM LABIRINTO 
J0976 03 HD COSMIC FORGE (EGA/W) ADVENTURE GRAHCO EM “RPG" 
JD90001 HD CRAZY CARS ID (VGARDEMO) CORRIDA DECARROS 
784201 HD CREEPERS (VGA) JOGO DE INTEL GENOA 

J0897 01 HD CROSSWORD FOR WINDOWS(2Mb) PALAVRAS CRUZADAS 
(INGLES) 

J097002 HD DANGER ZONETQP GUN (VGA/W) SIMULACAO AEREA 
J0923 05 HD DARK SUN (VGA/W/386) ADVENTURE GRAHCO EM "RPG" 
J085406 HD DAYS OF THE TENTACLE(VGA/W ADVENTURE GRAHCO ANIMADO 
J09 1 7 0* HD DOOM(V GA/W /386/4Mb) AVENTURA EM 3D (COMPLETO) 

JD849 05 HD DRAGON’S LAIR IV (VGA/W) JOGO DE ACAO 

JD964 01 HD DUKEN NUKEN 0 (COMPLETO) JOGO DE AVENTURA 

J094I02 HD EIGHT BAU DELUXE (VGA/W) JOGO DE PINBALL (OflTMO!!!) 

1095701 HD ELECTRO BODY (VGA/DEMO) JOGO DE ACAO 

J0892 02 HD EMPIRE DELUXE (VGA/W) JOGO DE ESTRATEGIA 

788806 HD EPIC (VGA/W/386MMb) JOGO DE SIMUUCAO ESPACIAL 

JD90I Of HD ERIC THE UNREADY (VGA/W) ADVENTURE GRAHCO ANIMADO 

1)9 1 4 04 HDETERNAM (VGA/W) ADVENTURE GRAHCO ANIMADO 

J0871 06 DD EXOTIC CARS (VGA /EGA/W) CONHECA OS GRANDES CARROS 

7856 01 DD FALLOUT JOGO ESTILO TETRIS 

7)98001 DD FANTASY MANAGER JOGO DE BASEBALL 

788305 HD FASCINATION (EGA/VGA/W) ADVENTURE GRAHCO ANIMADO 

7)90202 HDRASHBACK (INGLES)(VGA/W) JOGO DE AVENTURA 

7845 03 IB) FLASHDACK (FRANCES)(VGA/W) JOGO DE AVENTURA 

7865 02 HD FIJGHTS1MUIAT0R V (VGA/W) SIMUUCAO AEREA 

7)974 1 1 HD GABRIEL KNIGHT (VGA/W/386) ADVENTURE GRAHCO ANIMADO 

789401 DD GNU CHESS FOR WINDOWS XADREZ PARA WINDOWS 

7)92802 HD GRANDMASTER CHESS DELUXE JOGO DE XADREZ (VGA/W) 

7)93808 HD HANDS OF FATE (VGA/W/386) ADVENTURE GRAHCO ANIMADO 

7891 03—HI^IiQtflC O/QA/W) ADVENTURE. GRAHCO ANIMADO 

7)93103 HD INDYCAR RAdNG(VGA/386/4MICORRIDA DEFQRMUU IND3P 
xmlll HD INRUCEK’I ~T5W85M)A^ 

J0927 04 HD INSPECTOR GADGET (VGA/W) AVENTURA COM O DETETIVE 

787201 DD INTERPHASE AVENTURA ESPACIAL 

JO850Q3 HD ISLAND OF DRBRAIN (VGA/W) ADVENTURE GRAHCO ANIMADO 

7)96201 HD JACK IN THE DARK (VGA/W) ADVENTURE GRAHCO ANIMADO 

JD93401 HD JET FUGHTER H (VGA/W) SIMUUCAO AEREA 

7)93501 HD JET FUGHTER U MISSION MISSOES P/ JET FUGHTER D 

784803 HD JORDAN IN FUGHKVGA/W/386 JOGO DE BASKETBALL 

70947 04 HD JURASSIC PARK (VGA/W) JOGO DE ACAO 

787301 HDKAEON (VGA/EGA) AVENTURA ESPACIAL 

785701 HD KEN’S UBYRINTH (VGA) AVENTURA EM 3D 

784606 HD LAISURE S.URRY V vr.VGA ADVHmJRE GRAHCO ANIMADO 

7)907 08 HD IANDS OF LORE (VGA/W) ADVENTURE GRAHCO EM "RPG" 

7)92002 HD USER SQUAD (VGA/W/386) JOGO DE ESTRATEGIA 

1)931 17 HD LEATHER G. OF PHOBQS D(W) ADVENTURE GRAHCO EM “RPG" 

7868 04 HD LEGENDS OF VALOUR (VGA/W) ADVENTURE GRAHCO EM "RPG" 

7879 01 HD LOLLY POP (EGA) JOGO DE AVENTURA 

7)96712 HD LOST IN TIM: (VGA/386/4Mb) ADVENTURE GRAHCO ANIMADO 

J0979 0I HD MANAGER’S CHALUNGE(VGA/W) JOGO DE BASEBALL 

1863 03 HD MANTIS SPEECH PACK VOZES PARA O JOGO MANTIS 

7858 01 HD MEGATRON (VGA) JOGO EM LABIRINTO 

7877 02 DD MENACE (VGA) JOGO DE ACAO ESPACIAL 

788108 HD MIGHT MAGIC V (VGA/W/386) ADVENTURE GRAH CO EM “RPG" 

785204 HD MIXED-UP FAIRY TALES (VGA/W ADVENTURE GRAHCO ANIMADO 

785501 HD MONSTER BASH (EGA) JOGO DE AVENTURA 

7)95103 HD MORTAL COMBAT (VGA/W/386) JOGO DE BRIGA DE RUA (4M>) 

7)956 01 HD NEW YORK SCENERY FOR PS-5 CENARIOS PARA O FS-5 

789902 HD NIGEL MANSELL (VGA/W) CORRIDA DE FORMULA 1 

J095901 HDNYETUI (VGA/W) JOGO ESTILO TETRIS 

J091001 DD PANZER BATTLES JOGO DE ESTRATEGIA MIUTAR 

J095501 HD PARIS SCENERY FOR PS-5 CENARIOS PARA 0 FS-5 

7)98103 HD PATRIOT (VGA/W/386/4Mb) JOGO DE ESTRATEGU MIUTAR 

7)90901 HD PICK IN PILE JOGO DE INTEUGENOA 

788602 HD PINEAL FOR WINDOW(VGA/386) JOGO DEPTNBAU(CmMO!!!) 

785901 HD PINBALL DREAMS (VGA) JOGO DE PINBALL 

786906 HD HRATES!GOLD<VGA/W/386/2M> ADVENTURE GRAHCO ANIMADO 



RE GRAHCO ANIMADO 



HD POKER FOR WINDOWS JOGO DE POK 

: HD POLICE QUEST IV(VGAAV/386) ADVENTU1 
1 HD PROTOSTAR(VGA/W/386/MOUSE) SIMULA 
' HD RAGS TO RICHES (VGA/W) JOGO DE IN 1 
l HD REAUB OF ARKANIA (VGAAV) ADVENT 



'li*l PULI A Ui 4 5 '.’alii ILvwM'JrJtiJ HI J*iS! 

DESCONTO 
ACIMA DE 10 DISCOS 
5% 

ACIMA DE 20 DISCOS 
10% 



7)91812 HD RETURN TO ZORK (VGA/W/386) ADVENTURE GRAHCO EM 
“RPG" 

789007 HD RING WORLD (VGA/W) ADVENTURE GRAHCO ANIMADO 

J08600I DDROBALL (W) JOGO DE HABILIDADE 
rwii fu^HDRnRocopni ivgaayi jqgodf.acaq — 






7)944 06 HD SAN FRANCISCO SCENARY FS-5 CENARIO PARA 0 FS-5 
J0961 01 HD SANGO FIGHTER (VGA/W) JOGO DE BRIGA DE RUA 
7)965 02 HD SEAL TEAM (VGA/W/386) JOGO DE ESTRATEGIA MIUTAR 
788705 HD SHADOW OF COMET{ VGA/W/386) ADVENTURE GRAHCO 
ANIMADO 

J092509 HD SHADOW OF YSERBIUS (VGA/W) ADVENTURE GRAHCO EM 
"RPG* 

J095405 HD SHADOWCASTER (VGA/38^4M>) ADVENTURE GRAHCO EM 
“RPG’ 

J094901 HD SILVER BAU (VGA/W/386) JOGO DE PINBAU 

7)945 02 HD SIM FARM - ^r.AWA^fi irAonBPATf 

7)952® HUSmiYMOO (YGA/386/4M>) MONTE SUA QDADE7 

70936 01 IX) SOKOUAN FOR WINDOWS J O OO DE D fT HJG ENQA 

7)95801 HD SOUR WINDS (VGA) JOGO ESPACIAL 
787804 HD SPACE HULK (VGA/W/386) ACAO EM LABIRINTO 
J0882P2. HUSEECya EQBCE ^voa/w) iogo np fstratfgia mtutar 
J0954Q3 HD SPEED RACER(VGA/W/386/4M?) JOGO DE CORRDA) 



R PARA WINDOWS 
GRAHCO ANIMADO 
OR ESPACIAL 
ST1MENTOS 
RE GRAHCO EM “RPG" 



7)946 1 1 HD STAR TREK: JUDGEMENT RITES SIMUUCAO ESPAOAL(386/ 
4Mb 

7)96914 HD STARWARS CHESS(VGA/386/4Mb JOGO DE XADREZ 
(OTIMO!!!) 

786 1 01 HD STELLAR DEFENSE JOGO DE BATALHA ESPACIAL 

7)90401 HD STELLAR FOR WINDOWS(VGA/W) JOGO DE ESTRATEGIA 
7844 03 HD STRIKE COMMANDER SPEECH VOZES P/O STRIKE 
COMMANDER 

7)92102 HD STRONG HOLD (VGA/W/386) ADVENTURE GRAHCO EM 
"RPG" 

7)973 05 HD SUBWAR 2050 (VGA/W) SIMULADOR DE SUBMARINO 
786703 HD SVGA AIR WARRIOR(VGA/W/386 SIMUUCAO AEREA 
(4Mb) 

788905 HD SYNDICATE (VGA/W/386/4Mb) JOGO DE ACAO (OTIMO!!!) 
7)94306 HD TERMINATOR RAMPAGE(386/4Mb JOGO DE AVENTURA 
3D (VGA/W) 

785101 HD THE BLUES BROTHERS (EGA) JOGO DE ACAO 
7)930 04 HD THE DARK HALF (VGAAV) ADVENTURE GRAHCO 
ANIMADO 

7)90601 HD THE LOST VIKINGS (VGA) JOGO DE AVENTURA 

788003 HD TORNADO (VGA/W/386) SIMULADOR AEREO (OTIMO!!!) 

7)966 03 HD TROLLS (VGA/W) JOGO DE AVENTURA 

787503 HD UNLIMITED AD VENTURER GA/W) ADVENTURE GRAHCO EM 

"RPG" 

J0972 05 HD USA WEST SCENARY (W) CENARIOS Pi FS4ES-5ATP 
787403 HD VHL OF DARKNESS (VGA/W) ADVENTURE GRAHCO EM 
"RPG" 

7895 01 DD VIDEO BUKJAK JOGO DE BUCK JACK 

7)90305 HD WAYNE HOCKEY m(VGA/W/386 JOGO DEHOQUH 

70896 01 DO WINCHESS FOR WINDOWS JOGO DE XADREZ 

7893 04 HD WING COMM. ACADEMY (VGA/W) SIMUUCAO ESPACIAL 

J092601 HD WOLF STREET HGHTER II 3D ACA03DC/OS PERSONAGENS 

JO919 03 HD W.CPRIVATEER SPEECH PACK VOZES PARA O 

WCPRIVATEER 

J091606 HD W.CPRIVATEER (VGA /386/4Mb) SIMULADOR ESPACIAL 
7870 01 HD X-WING MISSION MISSAO PARA 0 X-WING 

786401 HDZACK (EGA/W) JOGO DE INTEUGENOA 
789801 HDZOOL (VGA X DEMO) JOGO ESTILO SONIC (DEMO) 

JOGOS WINDOWS 

COD DKTP NOME DESCRICAO 

781702 HD A.T.C. FOR WINDOWS (W) SIMUUCAO DETRAFEGO AEREO 
7)55101 HD BATTLE CHESS FOR WINDOWS JOGO DE XADREZ ANIMADO 
7)905 01 HD CASTLE FOR WINDOWS JOGO DE ESTRATEGIA 

7)67701 HD CM 3000 FOR WINDOWS JOGO DE XADREZ (386/W/VGA) 

7897 01 HD CROSSWORD FOR WINDOWS(2Mb) PAUVRAS CRUZADAS 
(INGLES) 

J0495 01 DD DAMAS FOR WINDOWS JOGO DE DAMAS PI WINDOWS 

J0277 01 HD GAME COLLECTION P / WINDOWS JOGOS PARA WINDOWS 
7)572 01 DD GAMES FOR WINDOWS 04 JOGOS PARA WINDOWS 
7)67001 HD GAME PACK IFOR WINDOWS JOGOS P/ AMBIENTE WINDOWS 
782702 HD GAME PACK D FOR WINDOWS JOGOS P/ AMBIENTE WINDOWS 
7)66801 HD GAME PACK ID FOR WINDOWS JOGOS PI AMBIENTE WINDOWS 
781902 HD GAME PACK TV FOR WINDOWS JOGOS P/ AMBIENTE 
WINDOWS 

789401 DD GNU CHESS FOR WINDOWS XADREZ PARA WINDOWS 
781 1 02 HD MONOPOLY FOR WINDOWS (W) JOGO 7IPO BCOJMOBIUARIO 
7J77303 HD MSGOU F/WINDOWS(VGA/W/2Mb JOGO DE GOLF 
(WINDOWS) 

7886 02 HD PINBAL FOR WINDOW(VGA/386) JOGO DE PINBAU (OTIMO! ! !) 
786201 HD POKER FOR WINDOWS JOGO DE POKER PARA WINDOWS 

7)77202 HD RISK FOR WINDOWS (W) JOGO DE ESTRATEGIA 
7)552 02 DD SIMOTY FOR WINDOWS MONTE SUA CIDADE 

7)75701 HD SIMEARTH FOR WINDOWS (386) JOGO DE SIMUUCAO DA 
TERRA 

7)90401 HD STELLAR FOR WINDOWS(VGA/W) JOGO DE ESTRATEGIA 
7)63301 DD SYMANTEC GAMES (WINDOWS) JOGO DE INTEUGENOA 
J01 98 01 DD TETRIS FOR WINDOWS TETRIS Pi WINDOWS 

789601 DD WINCHESS FOR WINDOWS JOGO DE XADREZ 



JOGOS MAIS VENDIDOS 

COD DK TP NOME /DESCRICAO 

7)273 04 DD SIM EARTH (VGA/W) JOGO DE SIMUUCAO DA TERRA 

7)299 16 DD POUCH QUEST m(VGA/EGA) ADVENTURE GRAFICO ANIMADO 

J03I004 DD SIMPSQNS (VGA/COLOR) JOGO DE AVENTURA 

J03I902 DD LOST ADMIRAL JOGO DE ESTRATEGIA MIUTAR 

7)37004 DD ABC BOXING (VGA/W) LUTA DE BOXE 

7)37302 DD BLUE ANGELS ACROBAOAS AEREAS 

7)388 07 DD NINJA TURTLES D(EGA/VGA) JOGO DE AVENTURA 

7)391 06 HD MONKEY ISLAND D (VGA/W) ADVENTURE GRAFICO ANIMADO 

7)40405 DD SIMPSONS D (VGA/COLOR) AVENTURA ANIMADA 

J0405 01 HD 4D BOXJNG (VGA) LUTA DE BOXE EM 4D 

J040601 HD F- 117 A TUTOR (VGA) UCOESDE VOONOCACA FI 17 

7)40701 HD TETRIS COLLECTION (VGA) COLETAN1 A DE TETRIS 

JO45003 HD UFE AND DEATH II (VGA/W) SEJA O MEDICO DESTE JOGO 

7452 03 HDHARDQAI I m(EGA'VGA/386) lOGODFRASFBAU 

7)46105 HD FALCON 3XJ (VGA/W) SIMULADOR DE AVIAO 

7)46203 HD MARTIAN DREAMS (VGA) JOGO DE ACAO EM RPG 

7)475 02 DD HEAT WAVE CORRIDA DE LANCHAS 

7)485 02 HD TONY URUSSA’S(VGA/EGA/W) JOGO DE BASEBAU 

7)49401 DD COMMANDER KEEN U JOGO DE AVENTURA (VGA/EGA) 

7)504 01 HD TRISTAN (VGA/386) JOGO DE PINBAL (OTIMO!! !) 

7)51104 HD ULTIMA VD (VGA/W) ADVENTURE GRAFICO EM "RPG" 

7)51206 HD MARTIN MEMORANDUM (VGA/W) JOGO DE ACAO EM RPG 
J052504 DD CHESS MASTER 3000 JOGO DE XADREZ 
7)54101 DD MACADAM BUMPER JOGO DE PINBAU 
JD542G5 DD SECRET AGENT (W) AVENTURA C/ AGENTES SECRET 

7)55005 HD B-1 7 (VGA/W) SIMUUDOR DE AVIAO 

V) WING LUMM?^ 

J057603 HD DLVEIWER X-RATED (VGA) TEUS PORNO ANIMADAS 

J0577 03 HD ROCKETEER (VGA) COMPEnCAO AERU 

7)57801 HD GPU UNLIMITED (VGA) CORRIDA DE FORMUU 1 

7)57905 HD ROGER RABBIT D (VGA/W) AVENTURA COM O PERSON AGEM 

7)58001 HD WOLF STEIN 3D (VGA) JOGO DE ACAO EM 3D 

7)58 1 01 HD PIT FIGHTER LUTA DE R 111- CONTACT 

7)582 01 DD COMMANDER KEEN KEGA/VG A) JOGO DE AVENTURA 

7)58301 DD COMMANDER KEEN D (VGA JOGO DE AVENTURA 

J058401 DD COMMANDER KEEN IB (VGA) JOGO DE AVENTURA 

J0589 (B HD GUY SPY (VGA) JOGO DE ACAO 

7)59101 HD STUNT DRIVE (VGA) CORRIDA DE CARROS 

7)597 03 HD WOLF STEIN 3D (COMPLETO) AVENTURA EM 3D (VGA/W) 

J0598 02 HD CIVILIZATION (VGA) COLONIZE O PLANETA TERRA 

JD59901 DD ULTIMA 1 ADVENTURE GRAFICO EM “RPG" 

7)60001 DD ULTIMA D ADVENTURE GRAFICO EM "RPG" 

rmim min.TiM Ai ji AmmrniRF ,rn?4Ha)FM‘T?PG" 

JD6 1 101 HDOUT1JF THIS WO RLD (EGA) JOGO ESTILO PRINCE / 

j362otrrriytoAT® 

J062803 DD NEVER ENDING STORY n (W) HISTORJ A SEM FIM (O FILME) 
J063404 HDIjOSTINLA (VGA/W) ADVENTURE GRAHCO ANIMADO 
J064102 DD ALPHA WAVES SUTCR JOGO DE ESTRATEGIA 
J0650 03 HD GREAT NAVAL RATTLE<386/W) SIMUUDOR MARITIMO (VGA) 
J0651 02 ID GLOBAL CONQUEST (VGA/W) ESTRATEGIA MIUTAR 
J0652 02 HD FALCON 3D MISSION MISSOES PI O FALCON 3.0 
J065308 HD AMAZON (386/VGA/W/MOUSE) ADVENTURE NA AMAZONIA 
J065405 HDFIVEL (VGA/W) ADVENTURE GRAFICO ANIMADO 
7)655 02 ID CARRIERS AT WAR (VGA/W) ESTRATEGIA MARJTTMA 
7)656 01 HD PACIFIC ISUND JOGO DE ESTRATEGIA MIUTAR 

J0657 06 HD F-15 STRIKE EAGLE 01(386) SIMDE AVIAO CfflMO (VGA/W) 

J0658 03 HD COMMANCHE (VGA/W/386) SIMUUDOR DE HEUCOPTERO 
J0659 06 HD STUNT ISLAND (VGA/W) SIMULADOR DE VOO 
J066003 HD ACE OF PACIFIC (386/W) SIMUUDOR DE VOO 
7)661 04 HD UGENDOFKYRANDIA (VGA/W) ADVENTURE GRAFICO 
J0662Q5 ID QUEST FOR GLORY ID (VGA/W) ADVENTURE GRAFICO 
7)673 01 HD SIMPSONS 01 (EGA) JOGO DE AVENTURA (ARKADE) 

7)68009 HD KING QUEST VI (VGA/W/386) ADVENTURE GRAFICO ANIMADO 
10694 09 HD DARK SEED (VGA/W/386) ADVENTURE GRAFICO ANIMADO 
JD71203 HD WORLD CIRCUIT (VGA/W) JOG ODE FORMUU 1 (OTIMO!!) 
J0713 04 HD CAR & DRIVER (VGA/W) SIMUUCAO AUTOMOBIIISTICA 
7)71409 HD MANTIS (VGA/W/386) SIMU1ADOR ESPAQAUOTIMO!) 

7/715 10 HD REX NEBULAR (VGA/W) ADVENTURE GRAHCO EPAOAL 
7J7I703 ID DARK SAVANT (VGA/W) ADVENTURE GRAH CO EM "RPG" 
7)71804 ID DUNE D (VGA/W) ADVENTURE GRAHCO F,* "RPG" 

7)724 03 HD TEGEL'S MERCENARY (VGA/W) ADVENTURE GRAHCO 
ANIMADO 

7)72605 HD ULTIMA U.WORLDn (VGA) ADVENTURE GRAHCO EM “RPG" 
7)731 03 HD SPEAR OF DESTINY (VGA/W) AVENTURA EM 3D 
J0739O4 HD LINKS PR0386 (VGA/W/386) JOGO DE GOLF (OTIMO!!!) 

JD74705 HD X-WING (VGA/W/386/4MB) SIMUUDOR ESPACIAL 

7)748 06 HD ULTIMA VD B.GATE (VGA/W) ADVENTURE GRAHCO EM “RPG" 

7375001 HD RED BARON MISSION BUILDER MISSOES PARA O RED BARON 

73751 05 ID LORD OF THE RINGS (VGA/W) JOGO DE AVENTURA 

J0752 07 HD BATMAN RETURNS (VGA/W/386) JOGO DE 

AV0mJRA(OTIMO!!!) 

7)75303 HD EYE OF BEHOLDER II (VGA/W) ADVENTURE GRAHCO EM “RPG" 
7)75408 HD GATE WAY (VGA/W/MOUSE) ESTRATEGIA ESPAOAL 
7)75501 HD ULTIMA VII FORGE OF VIRTUE COMF1. P/ U7 BLACK GATE 
J0762 02 HD GUNSHIP 2000 SCENARY (VGA) CENARIOS P/ O GUNSHIP 2000 
70768 01 HD SPECTRE (VGA/W) JOGO ESPAOAL 

J0769 01 HD BUMPERS (EGA/VGA) JOGO DE HABILIDADE 
7)77005 HD WEEN THE PROFECY (VGA/W) ADVENTURE GRAHCO 
ANIMADO 

70771 01 DD LUMATRON (VGA/W) ACAO COM UM CAMELO 
7177405 HD ALONE IN THE DARK (VGA/W) ADVENTURE QtAHCO 
ANIMADO 
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CURSO 



Visual Basic - Parte 3 

Neste capftulo voce ira criar o "Projeto Jogo da Velha" 



Ricardo Flores 

0 usuario Pentelho 
encomendou um Jogo 
da Velha. Assim que 
rodar o aplicativo, o 
proprio programa 
limpara as marcagoes 
existentes e escolhera 
umadas 9 posigdes para 
marcar com 0 (a letra 6). 
0 Pentelho tera sua vez 
para marcar um X 
clicando um botao. Se 
uma sequencia de 3 X 
ou 3 0 ocorrer na hori- 
zontal, vertical ou diago- 
nal o aplicativo informara o vencedor, ou seja, o micro (0) ou 
o Pentelho (X). 

INICIANDO UM NOVO PROJETO 

Menu File \ New Project (Para iniciar um novo 

projeto.) 

Reposicione e dimensione o Fbrml com 2.760 twips de 
largura x 3.300 twips de altura 

Encontre e mude a propriedade Caption do objeto Forml 

para Jogo da Velha 

Encontre e mude a propriedade BorderStyle desse objeto 
para 1 - Fixed Single (O efeito so aparecera em tempo de 
execugao.) 

Encontre e mude a propriedade MaxButton desse objeto 
para False (O efeito so aparecera em tempo de execugao.) 
Clique o botao "Gravar Projeto Corrente” e digite: 
JVELHA (Para nome do formulario) \ OK 
JVELHA (Para nome do projeto) \ OK 

CR1ANDO A INTERFACE COM O USUARIO 

Botao de Comando (l a Botao da l a linha e l a coluna) 
Duplo clique na ferramenta Botao de Comando (0 objeto 
Commandl e criado no tamanho padrao pelo VB, no centre 
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do formulario.) 

Encontre e mude a propriedade Name do objeto Com- 
mandl para bot 

Encontre e apague a propriedade Caption do objeto bot 

Redimensione e reposicione o objeto bot conforme 
modelo 

Com este botao ativado, tecle <Ctrl>+<C> para copia-lo 
na Area de Transferencia (A partir de agora voce podera 
reproduzir tal objeto usando <Ctrl>+<V>j 

DEMAIS BOT6ES DE COMANDO 

Tecle <Ctrl>+<V> para copiar tal objeto da Area de 
Transferencia no formulario. 



0 VB enviarS o Quadro de Mensqgem: 


“1 


Microsoft Visual Basic 


<D 


You already have a control named 'bot'. Do 
you want to create a control array? 




y^esjj 


No | 









Isto quer dizer: "Voce ja tern um controle de nome bot’. 
Voce quer criar um vetor de controle?” 

Acione Yes [= Sim] 



Dessa forma, o VB criara botoes de comando com as 
mesmas caractensticas, ou sejam, sem legenda e com 
mesmo nome. 0 que toma estes objetos independentes e 
o indice de cada botao, isto e, o primeiro incicia com zero - 
bot(O), o segundo com 1 - bot(l) e assim por diante. 

Tecle <Ctrl>+<V> (Para criar os demais botoes.) 

Clique o botao "Gravar Projeto Corrente” (A partir de agora 
lembre-se de salvar seu projeto.) 

Rode o projeto \ Observe a aparencia do formulario \ 
Termine Execugao do Aplicativo 

Criando a Barra de Menu com a Janela de Desenho de 
Menu [= Menu Design Window] 



=1 Jogo da Velha 
Arquivo 

□ M □ 

□ □□ 
QQQ 





A Barra de Menu terS apenas um Menu Arquivo, contendo 
2 itens: Novo Jogo e Sair 

Ative o formulario \ Menu Windows \ Menu Design 



Menu Design SVimJuw 



Caption: INdyo Jnqo 




Ham*: |ilmNnvn 




] | Cancel | 


Index: [ | 


Shoitcut: jCtrUN 




ED Window 1 isl 


HelpCDnl#«ID: jt 


1 


O Cheeked 


3 Enabled ^ Viaiblc 


l±l±l±i±ii: 


Mb«! | in* 8ft | 


Delete | 


Wieuivn 
i —inavo Joqo 


-t 



wax bin ■ n 

• So». CTh.s 



m- 1 ■ 

Na caixa Caption, digite: 

&Arquivo 

0 caractere precedido de & aparecera sublinhado num 
menu, num item de menu, numa legenda ou num botao de 
controle, permitindo que tal controle seja selecionado pelo 
Pentelho, atraves do teclado. 

Na caixa Name, digite: 
mnuArquivo 

Acione o botao Next [= Proximo] 

Na caixa Caption, digite: 

&Novo Jogo 

Na caixa Name, digite: 

itmNovo 

Na caixa combo Shortcut: [=Teclasde Atalho], sele-cione: 
Ctrl+N 

DICA: £ necessario teclar<Alt> e a letra sublinhada para 
acessar um menu. £ necessario ter um menu aberto para 
acessar a letra sublinhada de um item de menu. Ji as teclas 
de atalho ativam os itens de menu de qualquer local do 
aplicativo. Sabendo disto, escolha a tecta de atalho de forma 
que identirique um objeto de forma inequivoca. 

Acione o botao para este item de menu ficar endentado 
Acione o botao Next [= Proximo] 

Na caixa Caption, digite: &Sair 
Na caixa Name, digite: itmSair 
Na caixa de lista Shortcut selecione: Ctrl+S 
OK 

Clique o botao "Gravar Prqjeto Corrente” 

Rode o projeto \ Faga diversos testes \ Termine a 
Execugao 

Escrevendo o Codigo Basic do Item de Menu Sair 

Clique o menu Arquivo do formulcirio 

Clique o item Sair desse menu (0 VB escreverS o 



gabarito:) 

Sub itmSair_Click ( ) 

End Sub 

Complete o eddigo com End que encerra o programs, 
retirando o formulcirio da tela: 

Sub itmSair_Click ( ) 

End 

End Sub 

Escrevendo o Codigo Basic do Item de Novo Jogo 
Clique o menu Arquivo do formulario \ Clique o item Novo 
Jogo desse menu 

(0 VB escreverci o gabarito:) 

Sub itmNovo_Click ( ) 

End Sub 

A declaragao Call chama um procedimento Sub ou uma 
Biblioteca de Ligagao Dinamica [= DLL = Dynamio-Link 
Library]. A declaragao Call § opcional, ou seja, voce poderia 
digitar apenas JogoNovo. Ela foi mantida para possibilitar a 
compatibilidade entre outras versdes Basic. Complete o 
eddigo com Call JogoNovo como segue: 

Sub itmNovo_Click ( ) 

Call JogoNovo 
End Sub 

Escrevendo o Codigo Basic do Objeto Form 
Na Janela de Codigo, selecione o objeto Form (0 VB 
escreverU o gabarito:) 

Sub Form_Load ( ) 

End Sub 

Note que o evento Load e automaticamente selecionado 
pelo VB. 0 evento Load ocorre sempre que um formulario 
entra em agao. Portanto, § aqui que escievemos as rotinas 
iniciais para este formulario. 

A declaragao Randomize sem parametros buscara na 
fungao Timer um valor para realimentar o gerador de 
nOmeros aleatorios do VB. Dessa forma, o primeiro numero 
aleatorio a ser gerado pela fungao Rnd sempre sera um 
nOmero diferente. 

Isto posto, complete este procedimento: 

Sub Form_Load ( ) 

Randomize 
Call JogoNovo 
End Sub 

Crlando um Procedimento Geral do Formulario 

Ative o formulario \ Acione o Menu View [= Visualisar] \ 
New Procedure... [= Procedimento Novo...] \ Digite na caixa 
Nome: JogoNovo \ OK 



New Procedure 



Type 

® S.ub O Eunction 




OK 


Cancel 


Name: JogoNovoj 



Note que na combo Object surge: (general) e na combo 
Proc: JogoNovo. O VB escrevera o gabarito: 

Sub JogoNovo ( ) 
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End Sub 

DICA: Outra forma de criar um procedimento Geral seria 
digitarna primeira linha daJanela de Cddigo, rente £ margem 
esquerda: Sub JogoNo\/o <Enter> 

Tudo que estiver dentro da estrutura de programagao For 
/ Next serd repetido 9 vezes, iniciando em 0 e terminando 
em 8. 

Os botoes de comando bot de Indices de 0 a 8 ficarao 
sem legenda. 

A fungao Rnd retorna um nOmero de precisao simples 
entre 0 e 1. Tal nOmero 6 multiplicado por 9 porque 
queremos um valor de 0 a 8. Usamos a fungao Int porque 
queremos somente a parte inteira desse nOmero, que serfc 
armazenada na variSvel M. 

A propriedade Caption do botao bot cujo Indice estO 
guardado em M sera a letra "0”. 

Isto posto, complete este procedimento: 

Sub JogoNovo ( ) 

For i = 0 To 8 

bot(i). Caption = "” 

Next i 

M = lnt(Rnd * 9) 
bot(M).Caption = "0" 

End Sub 

Eserevendo o Cddigo Basle do Objeto bot( ) 

Na Janela de Cddigo, selecione o objeto bot (0 VB 
escreveri o gabarito:) 

Sub bot_Click (Index As Integer) 

End Sub 

Observe que o VB alem de fbmecer o gabarito, declara a 
vari&vel Index como inteiro. Quando o Pentelho clicar um bot, 
o VB passa para este procedimento o respectivo fndice do 
botao de comando. 

Se [= If] a legenda do botao clicado for diferente [ < > ] 
de nada [ ], isto 6, jd possui legenda, entao [= Then] os 

comandos entre If / End If serao executados. 

A declaragao MsgBoxtem a sintaxe MsgBox (mensagem$ 
[, valor [,tftulo$]]>, onde a mensag em e o que voce deseja 
informar ao Pentelho. Titulo § o que sera exibido como titulo 
no Quadro de Mensagem e o valor representa um conjunto 
de botoes e leones prontos que podem ser exibidos no 
Quadro de Mensagem conforme tabela: 

Valor Exibe: 

0 somente botao OK 

1 botoes OK e CANCEL 

2 botoes ABORT, RETRY e IGNORE 

3 botoes YES, NO e CANCEL 

4 botoes YES e NO 

5 botoes RETRY e CANCEL 

16 leone Stop de Mensagem Crftica [= Critical Message] 
32 leone ? de Warning Query [= Pegunta de Advertencia] 
48 leone ! de Warning Message [=Mensagem de 
Advertencia] 

64 leone i de Information Message [= Mensagem de 
Inform agao] 

0 1° botao com o foco 



256 2° botao com o foco 
512 3“ botao com o foco 

Os valores da tabela acima podem ser somados. Por 
exemplo , se voce desej asse exibir um Quadro de Mensagem 
com os botoes Yes, No e Cancel e com o leone de Stop, 
bastaria voce somar 3 + 16 e o resultado 19 informar na 
linha de comando da MsgBox. Em nosso aplicativo estS 
impUcito 0 + 64, na linha: MsgBox "Este botao jh foi 



acionado.", 64, "Erro" 




l-l 


Erro J 


Este botSo ja foi acionado. 





^ 1 



Se MsgBox for usada como uma fungao, podera retomar 
os valores: 



Valor Sign'rfica: 

1 Botao OK pressionado 

2 Botao Cancel pressionado 

3 Botao Abort pressionado 

4 Botao Retry pressionado 

5 Botao Ignore Pressionado 

6 Botao Yes pressionado 

7 Botao No pressionado 

Apos o Pentelho acionar o botao OK a execugao do 
programa saira deste procedimento [= Exit Sub]. 

Se o Pentelho acionar um botao sem legenda, a 
propriedade Caption desse botao serO mudada para "X". 
Isto posto, complete o procedimento: 

Sub bot_Click (Index As Integer) 

If (bot(lndex).Caption < > "”) Then 

MsgBox "Este botao \£ foi acionado.”, 64, "Erro” 

Exit Sub 
End If 

bot(lndex).Caption = "X” 

End Sub 

Rode o projeto \ Execute diversos testes \ Termine a 
Execugao do Aplicativo 

Se uma sequencia de 3 X ou de 3 0 ocorrer na horizontal, 
vertical ou diagonal o aplicativo desviara [= GoTo] a execugao 
do programa para o fotulo MensQ: no caso de sequencia de 
3 0 ou para o rotulo MensX: no caso de sequencia de 3 X. 
Da forma que o codigo foi escrito a posigao dos botoes no 
formulario tern que ser conforme tabela ao lado. Se 
inicialmente voce posicionou os botoes em outra ordem 
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basta arrasta-los e deposita-los no formulario na ordem 
correta. 

bot(0) bot(l) bot(2) 

bot(3) bot(4) bot(5) 

bot(6) bot(7) bot(8) 

/ 0 VB ficara gerando um nOmero randomico ate [= Until] 

“ acertar ’ num bot( ) cuja propriedade Caption seja nenhuma. 

A propriedade Caption desse botao sem legenda serS 
mudada para “0”. 

Isto posto, complete o procedimento: 

Sub bot_Ciick (Index As Integer) 

If (bot(lndex).Caption < > "') Then 

MsgBox "Este botao j£ foi acionado.”, 64, "Erro” 
Exit Sub 
End If 

bot(lndex).Caption = "X” 

If (bot(0). Caption = "X" And bot(l).Caption = "X” And 
bot(2).Caption = "X”) Then GoTo MensX 

If (bot(3).Caption = “X” And bot(4).Caption = "X” And 
bot(5).Caption = "X”) Then GoTo MensX 

If (bot(6).Caption = "X" And bot(7).Caption = “X" And 
bot(8).Caption = "X”) Then GoTo MensX 

If (bot(O).Caption = "X” And bot(3).Caption = "X” And 
bot(6).Caption = "X") Then GoTo MensX 

If (bot(l).Caption = "X” And bot(4).Caption = "X" And 
bot(7).Caption = “X”) Then GoTo MensX 

If (bot(2).Caption = "X" And bot(5).Caption = "X" And 
bot(8).Caption = "X”) Then GoTo MensX 

If (bot(O).Caption = "X” And bot(4).Caption = "X” And 
bot(8).Caption = “X”) Then GoTo MensX 

If (bot(2). Caption = "X” And bot(4).Caption = “X” And 
bot(6).Caption = "X”) Then GoTo MensX 
Vez do Micro 
Do Until bot(M).Caption = 



M = lnt(Rnd * 9) ‘Gera e guaida em M um ntimero 
aleatorio de 0 a 8. 

Loop 

bot(M).Caption = "0” 

If (bot(O).Caption = "0” And bot(l).Caption = "0” And 
bot(2).Caption = "0”) Then GoTo MensO 

If (bot(3).Caption = "0” And bot(4).Caption = "0” And 
bot(5).Caption = "0”) Then GoTo MensO 

If (bot(6).Caption = “0” And bot(7). Caption = “0” And 
bot(8).Caption = "0”) Then GoTo MensO 

If (bot(O).Caption = “0” And bot(3).Caption = "0” And 
bot(6).Caption = "0”) Then GoTo MensO 

If (bot(l).Caption = "0” And bot(4).Caption = "0” And 
bot(7).Caption = “0”) Then GoTo MensO 

If (bot(2).Caption = "0" And bot(5).Caption = "0” And 
bot(8).Caption = "0”) Then GoTo MensO 

If (bot(O).Caption = "O' And bot(4).Caption = “O' And 
bot(8). Caption = "0") Then GoTo MensO 

If (bot(2).Caption = "O’ And bot(4).Caption = “O' And 
bot(6).Caption = "O’) Then GoTo MensO 
Exit Sub 
MensX: 

MsgBox "Voce”, 64, "Vencedor' 

Call JogoNovo 
Exit Sub 
MensO: 

MsgBox "Micro”, 64, "Vencedor” 

Call JogoNovo 
Exit Sub 
End Sub 

Rode o projeto \ Execute diversos testes \ Termine 
a Execugao do Aplicativo 
Ate a proxima. 

Ricardo Flores 6 Auditor, formado em Administragao e 
B Ciencias Contabeis pela Candido Mendes. Criou mStodo 
SI prdprio de treinamento em DOS, Lotus, Clipper, Etc. 
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ARTIGO 



Como criar Pseudo-Classes em 
Clipper 5.01/5.2 

Aprenda um pouco mais sobre Programagao Orientada para 
Objetos e como aplica-la em seus programas 



Julio C£sar da Costa 



Em geral quando falamos de Programagao Orientada a 
Objetos (OOP), muitas pessoas ainda nao entendem 
exatamente o significado desta nova tecnica. £ importante 
entendermos que a ORIENTAQAO A OBJETOS (00) nada 
mais § do que uma nova otica para analisarmos o problema 
e propormos uma solugao. Estretanto, isto nao quer dizer 
que a 00 rompa com os conceitos ate agora aplicados e 
sacramentados como a PROGRAMAQAO ESTRUTURADA e 
MODULAR, pois a 00 6 um conceito que engloba estes, 
complementandoos. 

Para buscar compreender melhor como isto funciona, 
vejamos um problema e duas solugoes tipicas, uma 
TRADICIONAL, usando apenas a PROGRAMAQAO 
ESTRUTURADA e MODULAR e outra usando ORIENTAQAO a 
OBJETOS. 

Imagine que voce esteja fazendo um SOFTWARE 
APLICAT1V0 onde a cada M6DUL0/TELA voce tenha um 
conjunto de teclas que acionam uma tarefa especffica. 
Agora imagine que estas teclas terao murto pouca utilidade 
se o usuario nao tomar conhecimento de sua existencia, e 
para tal voce deverS apresentd-la em uma area especTfica da 
tela & medida que os modulos vao se sucedendo. Se voce 
for um daqueles programadores “ligaddes” em UDFs vai 
pensar em algo como: 

MODO TRADICIONAL 

a) FUNQAO: 

DispTeclas( cMENSAGEN ) ou 

DispTeclas( nMSG ) onde nMSG 6 o fndice de um array que 
voce carregara previamente com tod as as mensagens 
necessdrias. 

b) APUCAQAO: 

Aposto que voce imaginou codificar cada m6dulo do seu 
programs como abaixo: 



FUNCTION MODULOX 
DispTeclas( nMSGMODULOX ) 

{ CORPO DO M6DUL0 } 

DispTeclas( nMSGMODULOANTERIOR ) 
return 

Ou ainda voce poderia ter uma varidvel pGblica chamada 
nMSGATUAL que sempre fosse atualizada a cada utilizagao 
de DispTeclas() de modo a sempre corresponder ao indice 
da mensagem que estivesse impressa no video, quando 
entao voce poderia ter: 

DispTeclas( nMSG ) — > nMSGANT, que e o indice 
corrente antes da mudanga. 

E os seus modulos seriam elegantemente codificados 
para: 

FUNCTION MODULOX 
LOCAL nMSGANT 

nMSGANT = DispTeclas( nMSGMODULOX ) 

{ Corpo do M6dulo } 

DispTeclas( nMSGANT ) 
return 

SOLUQAO ORIENTADA A OBJETOS 

Considerando que este tipo de mensagem § uma pega 
fundamental dentro da nossa INTERFACE com o usuario, 
nos determinarfamos duas coisas para nossa solugao 
ORIENTADA A OBJETO: 

A) Estrutura dos Dados Importantes para execugao da 
Tarefa: 
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Estes dados sao chamados de ATRIBUTOS do objeto e o 
caracterizam como pega individual no pragrama. Nossa 
solugao OOP poderia ter os seguintes ATRIBUTOS: 

STACK = Pilha de mensagens. Seria um vetor contendo 
a sucessao das mensagens impressas onde o ultimo 
elemento conteria a mensagem atualmente impressa, o 
primeiro elemento, a linha salva por SAVESCREEN() no 
momento da impressao da primeira mensagem (para apagar 
as mensagens retornando com precisao ao contetido ante- 
rior da posigao) e o segundo elemento seria a primeira 
mensagem impressa; 

COLOR = STRING de cor para impressao da mensagem; 

nRow, nCd = Coordenadas de Linha e Coluna indicando 
a posigao onde a mensagem sera impressa; 

BLOCK = Como uma opgao para os usuarios deste 
objeto, poderemos definir um CODE BLOCK que faga o 
tratamento do argumento passado para a FUNQAO DE 
IMPRESSAO (terade haver uma), devolvendo-lhe a mensagem 
a ser impressa correspondents ao argumento. Normalmente 
este CODE BLOCK poderia ser{ IXI X}, ou seja, a MENSAGEM 
a ser impressa e o proprio argumento recebido por esta 
fungao. 

B) Conjunto de AQOES que esta estrutura de dados, que 
constitui o CORPO do objeto, poderS sofrer para 
processamento: 

IMPRESSAO = Apresentar a mensagem na tela. £ a agao 
mais obvia que este objeto pode sofrer e chamaremos a 
"FUNgAO” (em OOP chamamos de MlETODO), por 
DISPLAY(<exp>) onde <exp> e um argumento de qualquer 
tipo que sera process ado pelo CODE BLOCK armazenado no 
atributo BLOCK para obtermos a mensagem a ser impressa. 
Este mecanismo faculta muitos recursos, entre os quais: 

.. Limitar o tamanho da mensagem : {IXIIeft(X,TAM)} 

.. Usar vetor com mensagens : {IXIaMSG[X}} 

.. Fazer Scroll conforme crescimento da mensagem : 
{IXI right(X ,TAM )} 

.. Centralizar mensagem : {IXIpadc(X,80)} 

Outros recursos poderao ser desenvolvidos pela 
conveniente codificagao deste CODE BLOCK. Flexivel, nao? 

RE-IMPRESSAO da mensagem anterior na pilha = 

Apresentar a penultima mensagem impressa no Video 
(quando uma fungao com sua propria mensagem retoma ao 
procedimento que a executou). Perceba que distinguimos 
esta agao da agao de IMPRIMIR ja que o controle da 
sucessao de mensagens jS esta embutido no objeto, coisa 
que a abordagem tradicional relegava a posteridade, mas 
que aqui tomase a principal caracteristica do objeto. 
Chamaremos esta fungao de RECALL(). 

APAGAR as Mensagens Impressas = Ao final de um 



mod ulo , ou mesmo a qualquer momento da execugao deste, 
pode ser interessante retirar a mensagem da tela (quando 
porexemplo, e acionado um procedimento que DESABIUTA 
tod as as teclas somente ate sua conclusao), Esta AQAO 
tambem era deixada de lado na abordqgem tradicional, o 
que tomava a rotina dependente de outras partes do 
programa que tinham de conhecer a posigao da mensagem 
e seu tamanho para apaga-la da tela, sempie correndo o 
risco de usar cores incompativeis com a tela original no 
momento da impressao da primeira mensagem. £claro que 
tudo isto pode ser corrigido, mas o fato de corrigir TOMA 
TEMPO, o ideal e que acertemos da PRIMEIRA VEZ! 
Chamaremos esta fungao de CLEAR(). Note que assim como 
em RECALL() nao ha qualquer necessidade de parametros, 
ja que toda informagao necessaria para sua execugao ja se 
encontra disponivel entre os atributos do objeto. 

0 nosso proximo pas so seria IMPLEMENTAR estas 
fungoes, que em OOP chamamos de M^TODOS numa 
alusao ao fato de que cada uma manipula os ATRIBUTOS do 
objeto por um metodo proprio buscando um fim proprio, que 
como definimos anteriormente sao as AQ<184>ES que o 
objeto podera sofrer durante o seu processamento. Ao 
implementarmos os metodos de um objeto, devemos ter 
sempre em mente DUAS pequenas REGRAS: 

1) Um metodo so pode operar sobre ATRIBUTOS DO SEU 
OBJETO ou sobre aigumentos recebidos como parametros; 

2) Os atributos de um objeto so devem sertratados pelos 
SEUS PR<209>PRIOS M&TODOS. 

UM POUCO DE CONCETTOS 

Bom, quando chegamos a este ponto, temos que fazer 
algumas "ressalvas concertuais”, e vamos comegar pela 
aplicagao da palavra OBJETO ate aqui. 0 que estamos 
fazendo, nao e a DEF1NIQA0 de um OBJETO e sim de uma 
CLASSE. A forma mais pratica de explicar a alguem que mexa 
com programagao o que e uma CLASSE e dizer que ela esta 
para o OBJETO da mesma forma que um TIPO DE DADOS 
esta para uma VARlAVEL DE MEM6RIA. A CLASSE e a 
definigao de seus ATRIBUTOS e a codificagao de suas 
FUNQOES (oops, M&TODOS), enquanto que um OBJETO sao 
qs valores de seus atributos sendo manuseados por uma 
aplicagao atraves de MENSAGENS que e o nome dado a 
chamada e execugao de um METODO para um OBJETO 
especrfico, resumindo: 

CLASSES = tipos de objetos; 

OBJETOS = Valores dos atributos utilizados em um 
procedimento; 

MENSAGENS = acionamento de um m&todo usando um 
objeto; 

METODO = Agao a qual um objeto pode ser submetido 
durante o processamento. 

UNGUAGENS DE PROGRAMAGAO 

Neste ponto, podemos nos preocuparcom as linguagens. 
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A OOP possui sintaxe para tomar mais apropriado o 
entendimento e o manuseio de seus conceitos, como por 
exemplo: 

- Envio de mensagem para o objeto TECLAS para mostrar 
a string "FI: HELP” (Tambem conhecido como execugao da 
fungao DisplayO): 

TECLAS:DlspJay( “FI: AJuda” ) 

- Consulta ao valor do atributo nRow do objeto TECLAS: 

TECLAS:nRow 

- Atribuigao de um valor ao atributo nRow do objeto 
TECLAS: 

TECLAS:nRow := 10 ( Normal mente dove ser 
evltado ) 

0 uso desta sintaxe aumenta o conforto de trabalharmos 
com OOP, e, naturalmente uma LINGUAGEM DE 
PROGRAMAQAO ORIENTADA A OBJETO ou com recursos de 
orientagao a objeto deve daro suporte necessario a definigao 
de classes e a utilizagao desta sintaxe entre outros recursos, 
no entanto nao poderemos esperarque isto no CLIPPER seja 
tao natural quanto o 6 para linguagens como C++, TURBO 
PASCAL (5.5 e posteriores) e outras, que ja sao projetadas 
com recursos de ORIENTAQAO a OBJETO. 

UTlUZAgAO COM O CUPPER 

0 CLIPPER nao e uma LPOO (linguagem de prograraagao 
orientada a objeto) propriamente dita, ja que nao possui 
recursos intemos para DEFINIQAO DE NOVAS CLASSES e s6 
acerta sintaxe de OOP para as quatro classes nativas (GET, 
ERROR, TBROWSE e TBCOLUMN). Entretanto nem tudo esta 
perdido, ja que podemos usaros recursos presentes a partir 
da versao 5 do CLIPPER para possibilitar a criagao de 
PSEUDO-CLASSES. Estes recursos sao: 

1) Diretivas de pre-processador, em especial #TRANS- 
LATE; 

2) Os novos ARRAYS do CLIPPER, que alem de estruturas 
MULTIDIMENSIONAIS, sao HETEROGENEOS (cadaelemento 
pode serde um tipo e tertamanho diferentes) e ainda podem 
ser retom ados por uma fungao. 

0 processo de criagao de uma CLASSE, alias, PSEUDO- 
CLASSE, CLIPPER, embora nao seja tao natural quanto em 
uma LPOO, tambem nao e nenhum “bicho de sete cabegas”, 
o que passaremos a explicar com auxilio das nossas 
listagens contendo a implementagao completa da CLASSE 
DE MENSAGENS e mais um PROGRAMA EXEMPLO de seu 
funcionamento. 

a) USTAGEM 1: PSCLASS.CH 



Neste HEADER sao definidas as sintaxes de declaragdes 
que serao normalmente usadas por tod as as CLASSES e 
programas que as utilizem. Esta sintaxe foi adaptadado livro 
“PROGRAMAQAO ORIENTADA A OBJETO EM CUPPER 5.0", 
leitura obrigatoria para quern quiser se aprofundar no 
assunto. Vamos as declaragdes: 

1) CONSTRUCTOR <fungao> ( <exp,...> ) 

Define a fungao responsavel pela CRIAQAO de um 
OBJETO DA CLASSE. Toda classe deve ter pelo menos um 
CONSTRUTOR, basta lembrar as 4 classes nativas do 
Clipper com seus 5 construtores, (a CLASSE TBROWSE 
possui 2 CONSTRUTORES, TBrowseNew() e TBrowseDBO). 

Um construtor difere de um M&T0D0 a medida em que se 
trata de um PROCEDIMENTO DE INICIALIZAQAO executado 
para TODOS os objetos de uma CLASSE e nao para um 
objeto especifico. 

2) METHOD <fungao> CLASS <classe> [ MESSAGES 
<exp,...> ] 

Define uma fungao manipuladora dos dados de um objeto 
especifico. Um metodo pode ou nao possuir MESSAGES 
(argumentos) mais sempre vai pertencer a uma CLASSE. 

3) OBJECT LOCAL \ STATIC \ PRIVATE \ PUBUC 

Declarar o ESCOPO do objeto. 

b) USTAGEM 2 : MSGCLASS.CH 

Este HEADER contem as diretivas #translate que nos 
permrtem manusear os atributos e as mensagens da nossa 
PSEUDO-CLASSE atraves da sintaxe apropriada da OOP. 

Ele converte as referencias a cada ATRIBUTO de um 
OBJETO em uma referenda a um elemento de um ARRAY 
com o mesmo nome deste OBJETO, onde realmente os 
dados do OBJETO serao armazenados. Da mesma forma, 
converte uma MENSAGEM em uma chamada da fungao 
apropriada onde pelo menos o ARRAY que represents o 
OBJETO e passado como ARGUMENTO para esta fungao, 
desta forma os "ATRIBUTOS” do objeto sao compartilhados 
entre todos os metodos da classe. Note que como o ARRAY 
e passado por referenda, @<obj>, todos os metodos 
poderao modificar peu conteOdo. 

Ainda sobre as “MENSAGENS”, observe que natradugao 
as fungoes tiveram seu nome acrescidos do prefixo "msg”, 
isto fbi feito para evitar conflitos com outros nomes de 
fungoes ou METODOS de outras PSEUDO-CLASSES com o 
mesmo nome, (num C++ isto nao seria necessario, pois a 
propria linguagem se preocuparia em evitar estes conflitos). 

Para cada PSEUDO-CLASSE que criemos, deveremos ter 
um HEADER como MSGCLASS.CH, o qual devera ser usado 
no fbnte que implementa os METODOS da classe e nos 
fbntes dos programas que a utilizam. 

e) USTAGEM 3 : MSGCLASS.PRG 
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Este e o fbnte onde IMPLEMENTAMOS os metodos e o 
construtor da classe de mensagens. Observe o uso do 
HEADER MSGCLASS.CH nesta listagem e como nao foi 
necessario especificar PSCLASS.CH.ja que este ja foi usado 
dentro de MSGCLASS.CH. 

Observe tambem que a sintaxe da OOP descrita nestes 
HEADERS jS comega a ser usada na implementagao de suas 
proprias classes, e veja como isto simplifica o nosso 
entendimento do fonte. Imagine trocar cada referenda a um 
atributo da classe pela referenda ao elemento do ARRAY 
correspondente! 



FINALIZA£AO 

0 presente artigo teve a intengao de: 

a) Apresentar os concertos b&sicos fondamentais da 
OOP; 

b) Mostrar, atraves de um exemplo, qual o raciocinio 
empregado para desenvolver uma classe, e qual a sua 
diferenga do reciocinio empregado para desenvolver um 
modulo; 



d) LISTAGEM 4 : MSGTESTE.PRG 

A listagem 4 e um programa que utiliza a classe MSG para 
apresentar o no me do modulo corrente a cada chamada/ 
retorno de fungao. Observe que o uso do HEADER 
MSGCLASS.CH § o que vai possibilitar o uso da sintaxe de 
OOP em nossos aplicativos. 

Esta nao foi a aplicagao que sugerimos durante o projeto 
da classe, entretanto mostra como uma classe pode ser 
reutilizavel em tarefas similares aquela para qual foi criada_ 
dispensando alteragoes em seus fontes, coisa dificil de 
acontecer quando usamos a abordagem tradicional. 



c) Mostrar e explicar o processo de como implementar 
CLASSES usando os recursos disponrveis no CUPPER 5.xx; 

d) Levaro leitora refletirsobre asvantagensedesvantagens 
da aplicagao da OOP em seus programas. 



3 JUUO CtzSAR DA COSTA OLIVEIRA eAnalista de Sistemas, 
§1 formado pelas Faculdades Integradas Simonsen. £ coautor 
— "m J do livro Tecnicas Adminis tradvas Informatizadas para Tomada 
de Decisao - editado pela Ciencia Modema Computagao Ltda. 



MSGCLASS.CH 



* MSGClass . Ch .... : HEADER da CLASSE de 

MENSAGENS . 

* Autor : Julio Cesar da 

Costa Oliveira. 

*. 



#include "PSCLASS.Ch" 



/* 

Declaracao dos atributos da classe. 
*/ 



#translate 


. <obj> : stack 


=> 


#translate 


. <obj> : color 


=> 


#translate 


. <obj> : block 


=> 


^translate 


.<obj> :nRow 


=> 


#translate 


.<obj> snCol 


=> 



<obj>\ [1] 
<obj >\ [2] 
<obj >\ [3] 
<obj>\ [4 ] 
<obj>\ [5] 



/* 

Declaracao dos metodos da classe. 
*/ 



#translate . <obj > smsgDisplay ( <exp> ) => 
msgDisplay (®<obj>, <exp>) 

^translate . <obj > smsgClear ( ) 

=> msgClear (G<obj>) 

#translate . <obj > imsgReCall ( ) => 

msgReCall (@<obj > ) 



MSGCLASS. PRG 



* 

* MSGClass. Prg ... : Implementacao dos 

metodos da classe MENSAGENS. 

* Autor : Julio Cesar da 

Costa Oliveira. 

* 



# include "MSGCLASS . CH" 

*. — 

Constructor MSGNEW(L, C, COR, BLOCK) 

* 

* Construtor de objetos da classe 
MENSAGENS . 

* — 

local obj [5] 

obj [1] = {} 

obj [2] s if (COR==NIL, setcolorO, COR) 
obj [3] = if (val type {BLOCK) ="B", BLOCK, { 
IXI X }) 
obj [4] = L 
obj [5] = C 

return (obj) // Retorna "OBJETO" 

criado a partir dos argumentos. 

* 

Method msgDi splay Class oMSG MESSAGES 
cMSG 

* 

* Metodo que apresenta uma mensagem na 
tela. 

* 

local dMSG, nStack 

nStack = len (. oMSG: stack) 
if nStack = 0 

aadd ( . oMSG : stack, 

save screen ( . oMSG : nRow, . oMSG : nCol , 

. oMSG : nRow, 79)) 
end if 

if cMSG == NIL .and. nStack > 1 
dMSG s atail(. oMSG: stack) 

elseif cMSG == NIL 
.oMSG:msgClear ( ) 

elseif l cMSG == NIL 

dMSG = eval (. oMSG: block, cMSG) 
aadd( .oMSG: stack, cMSG) 

.oMSG:msgClear ( ) 
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@ . oMSG:nRow, . oMSGinCol say dMSG 
COLOR . oMSGi color 

end if 
return 

* 

Method msgRecall Class oMSG 

* 

* Metodo que retorna a penultima 
mens a gen da pilha como mens a gem 

* corrente . 



local cMSG, dMSG, nStack 
nStack = len( . oMSG: stack) 
if nStack > 2 

asize( .oMSG: stack, nStack - 1) 
cMSG = atail(.oMSG: stack) 
dMSG = aval ( .oMSG; block, cMSG) 

. oMSG :msgCl ear ( ) 

0 . oMSG:nRow, . oMSG:nCol say dMSG 
COLOR .oMSG: color 

else 

. oMSG :msgCl ear ( ) 

.oMSG; stack = {} 

end if 
return 

* 

Method msgClear Class oMSG 

* 

* Metodo que apaga a mensagem corrente 
da tela. 

* „ 

if len( . oMSG; stack) » 0 

return // Nao tem tela 

salva na pilha. 

else 

restscreen( .oMSG;nRow, .oMSG;nCol, 

. oMSG:nRow, 79, . oMSG; stack [1] ) 

endif 

return 



PSCLASS.CH 



*_ 

* PsClass.Ch ... s Header de 
definicoes gerais de PSEUDO -CLASSES. 

* Adapt ado do livro PROGRAMACAO 
ORIENTADA A OBJETO EM CLIPPER 5.0 



ttranslate CONSTRUCTOR <funcao> ( 

<exp, . . .> ) =>; 

FUNCTION <funcao> ( <exp> ) 

#translate METHOD <funcao> CLASS <classe> 
=>; 

FUNCTION <funcao> (<classe>) 

#translate METHOD <funcao> CLASS <classe> 
MESSAGES <exp, ..•> ■> ; 

FUNCTION <funcao> (<classe>, 

<exp>) 

#translate OBJECT LOCAL <objeto, ...> »>; 
LOCAL <objeto> 

#translate OBJECT STATIC <objeto, ...> «>, 



STATIC <objeto> 

#translate OBJECT PUBLIC <objeto, ...> =>; 
PUBLIC <objeto> 

tttranslate OBJECT PRIVATE <objeto, ...> 

=>; 

PRIVATE <objeto> 

* 



MSGTESTE.PRG 



* 

* MSGTeste.Prg ... : Teste de uso da 

classe MENSAGEM. 

* Autor : Julio Cesar da 

Costa Oliveira. 

* Rio de Janeiro, 29 de Dezembro de 
1993. 

* 

# include 'MSGCLASS . CH' 

set procedure to MSGCLASS.PRG 

clear screen 

object public MODULO 

modulo = MsgNew(10, 10) // Criacao do 

objeto "modulo" atraves do 

// do construc- 
tor. Note que COR e BLOCK sao 

// opcionais. 

.modulo ;msgDi splay ( " Modulo Master ") 

// Envio de uma Mensagem 

inkey ( 0 ) 

modi ( ) 

inkey ( 0 ) 

mod2 (modulo) 

inkey ( 0 ) 

.modulo: msgRecall ( ) 
return 

function modi 

.modulo :msgdisplay(" MODULO 1 ") 
inkey ( 0 ) 
modll ( ) 
inkey { 0 ) 

.modulo :msgrecall ( ) 
return 

function modll 

.modulo ;msgdisplay(" MODULO 1.1 ") 
inkey ( 0 ) 

.modulo :msgrecall ( ) 
return 

function mod2 

.modulo :msgdisplay(" MODULO 2 ") 
inkey ( 0 ) 

.modulo :msgrecall ( ) 
return 



36 MICRO SISTEMAS 




MONTE SEU PROPRIO AT 286, 386 OU 486 
TRANSFORMS SEU XT EM AT (OU 286 EM 386/486) 
CONSERTE E CONSERVE VOCE MESMO SEU PC 
INSTALE SEU MOUSE, MODEM, SCANNER, ETC... 

Com os livros do Eng. LAERCIO VASCONCELOS 



E3 COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 
AGORA VOCi JA PODE COMPRAR ESTE LIVRO NAS TRiS MAIORES UVRARIAS I 
DE INFORMATICA DE SAO PAULO: BOOKWARE, LITEC E CULTURA. 

ESTAMOS CADASTRANDO UVRARIAS E REVENDAS EM TODO O BRASIL 

Aborda: Montagem do XT © de AT 286, 386SX, 386DX e 486. Detaihes sobre fontes © gabinetes. Instalaf&o eldtrica: filtros d© linha, NO-BREAKS, I 
estabilizadoros, aterramento. Tudo sobr© DRIVES. Placas d© vfdeo © monitores CQA, HERCULES, EGA, VGA © SUPER VGA. Como ©scolher um bom monitor j 
© uma boa placa do video. Placas MULTI-I/O, IOSA, UDC © IDEPLUS. Placas do CPU, ©xpansSo d© memdria, InstalafSo d© memdria CACHE, SHADOW RAM, j 
tudo sobr© SETUP © STRAPS, andlise de desempenho, como aumentar a performance do WINCHESTER, conversSo d© XT ©m AT, conversSo d© 286 em 386 © [ 
486, uso da memdria ESTENDIDA © EXPANDIDA, InstalagSo do coprocessador aritmdtico, instalafSo d© WINCHESTER, dicas para compras, InstalafSo da I 
MOUSE, MODEM/FAX, SCANNER, SOUND BLASTER, etc, etc, etc... S 



£3 CONSERTE VOCE MESMO SEU PC XT OU AT 

200 pdglnas, 104 ilustragdes. Evlte gastos com manutenfSo III 

Aprenda a fazer 100% da manutenffio preventiva © 60% da manutenfSo corretiva do sou PC XT ou AT, mesmo sem saber ©letrdnlca (d recomendSvel ler tambdm j. 
o llvro 'COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486’). Soludone erros na momdria, maus contatos em chips © pla-cas, limpeza © ajuste de | 
veloddad© do drives, manutenfSo d© teclado e MOUSE, interfaces serials e paralelas, monitor. Os cuidados quo vocd dev© ter com o sou WINCHESTER. 
Limpeza e JubrlficafSo de impressoras. Como proteger o computador da poeira e da umidade. Uso de SOFTWARES DE Dl AGN6STICO. Aprenda a cuidar do j 
seu computador para que nSo apresente defeitos 111 j 



£3 IBM PC: DICAS E MACETES DE SOFTWARE 

230 piginas e uma centena de DICAS para vocS usar melhor seu PC III 

Vocd nunca viu tantas informafdes utels sobre SOFTWARE em um tinico livro. A cada p£gjna d ©ncontrada uma cllca quo pod© ser imedlatamente apficada ao 
seu computador, resultando em malor veloddad©, produtividade, seguranfa e fadlidad© d© uso. Aborda diversos assuntos interessantissl-mos: Cdpia de | 
dlsquetes protegidos, como aumentar a veloddad e de acesso do WINCHESTER e dos disquetes, uso da MEM6RIA ESTENDIDA, EXPANDIDA, EMS, XMS, i 
HMA, UMB, compactadores d© arquivos, recuperafSo d© discos formatados e de arquivos apagados, programas grSficos, como proteger o computador a nfvel de i 
software, como medir corretamente a performance da CPU, do WINCHESTER e da placa de video, comandos uteis do DOS, como criar da melhor forma seus j 
arquivos AUTOEXEC.BAT e CONFIG.SYS. E mais dezenas de outras dicas. Mesmo se vocd 6 um principiante, aprenda a usar as tdcnicas empregadas pelos I 
EXPERTS em mlcrolnform&tica 111 ; 



SOFTWARE DE DOMINIO PUBLICO E SHAREWARE 

SOLICITE NOSSO CATALOGO GRATUITAMENTE. VEJA AS VANTAGENS DOS NOSSOS PROGRAMAS: 

1) Sao todos compactados com o popular compactador P KZTP , o que reduz o tamanho e o custo para os clientes. 

2) Sao fomecidos em disquetes NO VOS e de BOA QU ALIDADE (TDK, SONY, BASF, etc.) 

3) Sao todos acompanhados de um arquivo LAERCIO.DOC que traz as instrufSes para a instalafao e para sua imediata utilizaf So. 

4) SSo todos testados e homologados pela nossa equipe tdcnica. 

5) A maior vantagem: sSo cobrados por tamanho, e n3o por disco. Enquanto outras empresas cobram 3 discos por 3 programas de 120 kB, n6s 

cobramos por apenas um tinico disco de 360 kB com os tres programas juntos. 



Recorte, preencha e envie para: 

LAERCIO VASCONCELOS 

C AIXA POSTAL 4391 , CEP 20.001 -970 Rio de Janeiro, RJ 

Nome: 

Endere?o: 

Cidade: CEP: 

Telefone: (MS) 

Para sua seguranfa, envie em carta registrada | j 

LAERCIO VASCONCELOS COMPUTAQAO LTDA. Av. Rio Branco, 156/2812 Rio de Janeiro. Tel (021) 262-1672, 262-6202 FAX (021) 2404)663 



Indique os livros desejados: 

( ) Estou enviando cheque nominal ao autor, Ladrdo Vasconcelos 
( ) Desejo receber o catelogo do programas 

Pregos em d6lar comercial, valor de VENDA: 

(converta para cruzeiros na data da compra) 

COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 ( ) $ 27 
CONSERTE VOC6 MESMO SEU PC XT OU AT ( ) $ 20 

IBM PC: DICASE MACETES DE SOFTWARE ( )$20 





PROG RAMA 



Acesso facilitado ao seu cadastro de clierrtes 



Controle de Clientes 



Micro: IBM PC XT/AT 
Memdrla: 512 Kbytes 
Video: CGA 
Unguagem: Clipper Summer 87 
Requlsltos: Impressora 



Renato Andr6 Alves 



^Tst^rograma foi criado para, de 

uma forma bem simples ajudar o usu&rio a organizar o seu 
cadastro de clientes, possibilitandoconsultarcom rSpidez 
por NOME ou apor CPF, imprimir as inform agoes dos 
clientes por NOME, CPF, individualmente, ou todos no 
mesmo relatorio. 

0 sistema e composto por urn arquivo de dados que 
devera ser criado pelo usuario com a ajuda de um editor 
de bancos de dados. 



CEP,C,9 DATACADAS,D,08 

TELEF0NE,C,8 0BS,C,70 

RG,C,12 0BS1,C,70 

Mais dois arquivos de fndice criados pelo sistema: 

- ( arquivo NOMERAZ.NTX ) 

- ( arquivo CPF.NTX) 



EXECUgAO DO PROGRAMA 



- Estrutura do arquivo 
( arquivo - controle ) 
N0MERAZ,C,40 
ENDEREC0,C,40 
BAIRR0,C,25 
CIDADE,C,25 
UF.C.2 



CPF, C, 14 

CGC,C,19 

NACI0NAL,C,15 

ESTCIVIL,C,24 

PR0RSSA0,C,25 



Paraexecutaro programa, apos sercompiladoe linketidato 
basta digitar "concli" <ENTER>. 



'=1 RENATO ANDR£ ALVES 6 Tecnico em Processamento de 
S Dados, e programa nas linguagens Basic, Dbase III Plus, 
SSI Cobol, e Clipper. 







1 CONCLI. PRG 


J 


SET SCORE OFF 


INDEX ON NOMBRAZ TO NOMERAZ 


SET STATUS OFF 


ENDIF 


SET DELETE ON 


IF 1 FILE (-CPF.NTX") 


SET WRAP ON 


INDEX ON CPF TO CPF 


SET DATE GERMAN 


ENDIF 


SET SOFTSEEK ON 


SET INDEX TO NOMBRAZ, CPF 


CLEAR 


REINDEX 


SET MESS TO 23 CENTER 




OPCsO 






DO WHILE .T. 




DO CONTCLI 


V_NOMERAZ * SPACE { 40 ) 


SET COLOR TO 


V_ENDERECO= SPACE ( 40 ) 


CLEAR 


V_BAXRROb SPACE (25) 


CLOSE ALL 


V_C XDADE s SPACE (25) 


CANCEL 


V_UF»SPACB ( 2 ) 


ENDDO 


V_CEP=SPACE ( 9 ) 




V_TELEFONE= SPACE ( 8 } 




V_RO= SPACE ( 12 ) 


PROCEDURE CONTCLI 


V_CPF= SPACE ( 14 ) 


DO WHILE .T. 


V_COC= SPACE ( 19 ) 


CLEAR 


V_NAC I ONAL = SPACE ( 15 ) 


SET COLOR TO W/R 


V_ESTCIVIL= SPACE (24) 


» 00,00 TO 24,80 DOUBLE 


V_PROF I SSAO * SPACE (25) 


0 02,32 SAY -CONTROLE DE CLIENTES - 


V_DATACADAS«CTOD(" / / ") 


0 03,35 SAY -MENU PRINCIPAL" 


V_OBS«SPACE(70) 


0 01,01 TO 04,78 DOUBLE 


V_OBS1=SPACE{70) 


SET COLOR TO 




0 07,33 TO 14,45 DOUBLE 




0 08,34 PROMPT - INCLUIR - MESS " INCLUX 


USB CONTROLE 


CLIENTES NO ARQUIVO" 


IF 1 FILE { "NOMBRAZ . NTX" ) 


0 09,34 PROMPT - CONSULTAR - MESS - CONSULTA 

3 
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CLIBNTBS DO ARQUIVO" 


0 00,00 TO 24,80 DOUBLE 


9 10/34 PROMPT * ALTERAR " MESS " ALTERA 


0 02,66 SAY DATBO 


CLIBNTBS DO ARQUIVO" 


0 03,66 SAY TXMBO 


0 11,34 PROMPT * BXCLUIR " MESS " BXCLUIR 


0 01,01 TO 04,7B DOUBLE 


CLIBNTES DO ARQUIVO* 


0 02,27 SAY "CONTROLS DB CLIBNTES" 


0 12,34 PROMPT " RELATORIO " MESS " TIRA DMA 


0 03,32 SAY "INCLUSAO" 


LISTAOEM DOS CLIBNTES " 


DO TBLA_F 


0 13,34 PROMPT * SAIDA " MESS " RETORNA AO 


VAR-0 


SISTEMA OPBRACIONAL * 


DO LIMPA 


MENU TO OPC 


DO WHILE .T. 


DO CASE 


DO TELA_G 


CASE OPC-1 


IF V_NOMBRAZ-SPACB(40) 


0 03,10 CLEAR TO 03,60 


0 05,02 CLEAR TO 22,77 


DO INCL CLI 


0 03,32 CLEAR TO 03,44 


CASE OPC- 2 


RETURN 


0 03,10 CLEAR TO 03,60 


ENDIF 


DO CONS_CLI 


IF VAR-0 


CASE OPC=3 


VAR-1 


0 03,10 CLEAR TO 03,60 


LOOP 


DO ALTE_CLI 


ENDIF 


CASE OPC *4 


SEEK V_NOMERAZ 


0 03,10 CLEAR TO 03,60 


IF FOUND () 


DO EXCL_CLI 


M*"NOME JA C ADASTRADO " 


CASE OPC =5 


DO MSO 


0 03,10 CLEAR TO 03,60 


ENDIF 


DO RELA_CLI 


SET ORDER TO 1 


CASE OPC =6 


RESP-"S" 


0 03,10 CLEAR TO 03,60 


0 22,01 TO 22,78 DOUBLE 


DO SAIDA 


0 23,03 SAY "CONFIRMA A INCLUSAO ?" GET RBSP PICT 


RETURN 


"0 1 " 


OTHERWISE 


READ 


LOOP 


IF RESP="S" 


ENDCASE 


APPEND BLANK 


BNDDO 


REPLACE NOMERAZ WITH V_NOMERAZ , BNDBRECO 




WITH V_ENDBRECO; 




BAIRRO WITH V_BAIRRO, Cl DADE WITH 


PROCEDURE INCL.CLI 


V_CIDADE, UF WITH V_UF; 


DO WHILE .T. 


CEP WITH V_CEP, TELEFONE WITH V_TE LBFONB , 


CLEAR 


RG WITH V_RG; 



5dleEFDDS 



SISTEMA DE CALCULO 
ESTRUTURAL Versflol.14 

, Vigas retangulares, lajes (m6todo 

\mmmm \ | de Marcus) epre-moldadas,pilares 

l # » centrados nao-esbeltos, sapatas 

centradas, escadas, (todos com armadura) e treligas (metalicas ou 
neb). ATENQAO: o sistema NAO tragf os diagramas. US$ 25.00 



consultOrio medico Versdo 1.0 

Cadastro complete) de clientes/pacientes, com campos para 
registro de todas as consultas/intemagoes, ciclo evolutivo do 
tratamento, histdrico rrbdico, medicamentos receitados , datas 
de consultas/internagoes, etc. US$ 25.00 



HOME BIBLIO 

Control© completo de biblioteca Cadastra livros, revistas, etc. 
Listagens/Consultas por assunto, autor, editora, etc. com campos 
para comentarios. Super completo. US$12.50 



OUTROS SISTEMAS 

, Contas a Pagar/ Receber US$25,00 - Controle de Estoque 
US$ 25,00 - Lista de Pregos US$ 25,00 - Corregfio Moneteria 
Mensal US$ 35,00 - Folha de Pagamento Mensal US$ 30,00 
- Livros Fiscais US$ 30,00 - Sistema de Contabilidade 
CAPETA ( Clone de Software LTDA) US$50,00 - Controle de 
Video Locadora US$ 50,00 




HorArlo de Atendimento de Segunde a Sexta-Felra 
Manhfi 9:30 9s 11:30 - Tarde 13:30 9a 18:00 ha 
FONE : (054) 381 -1752 - FAXfc>54) 381-2668 



CONTROLE DE ANDAMENTO DE 
f* 5 ® taSp \ PROCESSOS Versao 1.0 

\ \ Cadastre do autor ereu.tipode causa eagao.comarca, 

/ \ / \ andamento no f6rum. Datadepagamentos.audiencias, 

(d £ leiloes, distribuigao, remessaao tribunal, julgame^o. 

S Com campo para observagoes, etc. US$ 25.00 



CONTROLE DO ANDAMENTO DE OBRAS - V. 1.0 

Controle completo do andamento de obras, com cadastro de 
clientes.projetose obras. Controlao valor das horas, os recebimentos 
e datas dos mesmos. MantOm completo controle sobre as fases da 
obra. ( Iniciada, Andamento ou Paralisada) US$ 25,00 



SERIE HOME VERSOES 1.0 

US$ 12.50 CADA (DolarTurismo) 

HOME GAME Cadastro de cartuchos de video-game. 

HOME MAIL Mala direta com cadastro clientes/fornecedores completo. 
HOME MUSIC Cadstro de CD, LP e K/7 que voce possui. 

HOME RADIO Para radioamadores. Controle completo de QSO e QSL. 
HOME SOFT Cadastro de sooftware que voce possui. 

HOME VIDEO Cadastro de video/filmes assistidos ou nao. 



REQUISITOS MfNIMOS DE HARDWARE: IBM PC-XT, 640 Kb, 
CGA, DD 5 1/4, Winchester e Impressora (opcional). 

Para pedidos converta o valor em US$ pelo dolar turismo venda do dia e envie cheque 
nominal cruzado ou vale postal paraDAGOBERTO LARA DIAS Trav. Frei Clemente, 
s/n fl • Centro * 99300*00 - Soledade - RS. Ou fa?a deposito na Conta n fl 1 1 .548*7 da 
Agenda n fl 0490*1 (Soiedade*RS) do Banco do Brasil S/A. Envie xerox do deposito 
junto com sous dados completos e relagao dos programas adquiridos ou telefone 
informando-nos o valor depositado e seus dados. 



Nas comoras acima de USS zy.uO aanhe de brinde um oroarama de AGENDA TELEFONICA 



REVENDAS: SB INFORMATICA - CAPINZAL-SC - (one (0495) 55-1350 (manha) • LASER COUP 
CAMPO LARGO - PR - fone (041) 292- 3203 • COLITEC - MANAUS - AM - fone (092)233-8344 





CONTROLE DE CUENTES 



CPP WITH V_CPF, COC WITH V_CGC, NACIONAL 
WITH V_NACIONAL| 

BSTCIVTL WITH V_ESTCIVIL, PROFISSAO WITH 
V_PROFISSAO; 

DATACADAS WITH V_DAT ACADAS , OBS WITH V OBS, 
OBS1 WITH OBS1 

M« "REQISTRO INCLUIDO" 

DO MSG 

EXIT 

ELSE 

LOOP 

BNDIF 

BNDDO 

CLEAR GETS 
BNDDO 

***************************** CONSULTA 



PROCEDURE CONS_CLI 
DO WHILE .T. 

® 11,27 CLEAR TO 15,51 
® 11,27 TO 15,51 DOUBLE 

» 12,28 PROMPT " POR NOME/RAZAO SOCIAL " MESS; 

w A CONSULTA E FEITA POR NOME" 

® 13,28 PROMPT " POR C.P.F " MESS; 

* A CONSULTA B FEITA POR C.P.F." 

® 14,28 PROMPT " RBTORNA " MESS; 

" SAI DA CONSULTA" 

MENU TO OPC 
DO CASE 
CASE OPCsl 
DO P_NOME 

IF V_NOMERAZ= SPACE ( 40 ) 

® 11,27 CLEAR TO 15,51 
RETURN 
ENDIF 

DO CONSULTA 
RETURN 
CASE OPC=2 
DO P_CPF 

IF V_CPF*SPACB(14) 

® 11,27 CLEAR TO 15,51 
RETURN 
BNDIF 

DO CONSULTA 
RETURN 
CASE OPC=3 

® 11,27 CLEAR TO 15,51 
RETURN 
OTHERWISE 
LOOP 
BNDCASE 

BNDDO 



CONSULTA POR NOME/RAZAO SOCIAL 



PROCEDURE P_NOME 
DO WHILE ,T. 

SET COLOR TO 
CLEAR 

® 00,00 TO 24,80 DOUBLE 
® 02,66 SAY DATE() 

® 03,66 SAY TIMBO 

® 01,01 TO 04,78 DOUBLE 

® 02,27 SAY "CONTROLB DB CLIENTES" 

® 03,28 SAY "CONSULTA POR NOME" 

SET ORDER TO 1 
V_NOMERAZ« SPACE { 40 ) 

® 08,05 TO 12,75 DOUBLE 
® 10,07 SAY "DIGITS O NOME s " GET 
V_NOMERAZ PICT "91" 

READ 

IF V_NOMERAZ s SPACE (40) 

9 08,05 CLEAR TO 12,75 
RETURN 
ENDIF 

SEEK V_NOMERAZ 
IF EOF ( ) 

M="NOME NAO CADASTRADO" 

DO MSG 
LOOP 



ENDIF 

RETURN 

BNDDO 



CONSULTA POR C.P.F 



9 

9 

9 



PROCEDURE P_CPF 
DO WHILE .T. 

SET COLOR TO 
CLEAR 

9 00,00 TO 24,80 DOUBLE 

02.66 SAY DATEO 

03.66 SAY TIME() 

01,01 TO 04,78 DOUBLE 

9 02,27 SAY "CONTROLE DE CLIENTES" 
9 03,28 SAY "CONSULTA POR C.P.F." 
SET ORDER TO 2 
V_CPF«SPACE ( 14 ) 

9 08,18 TO 12,55 DOUBLE 
9 10,20 SAY "DIGITS O C.P.F. s 
PICT "###.###.###-##" 

READ 

IF V_CPF=SPACE(14) 

9 08,18 CLEAR TO 12,55 
RETURN 
ENDIF 

SEEK V__CPF 
IF EOF ( ) 

Ma"C.P.F. NAO CADASTRADO" 

DO MSG 
LOOP 
ENDIF 

RETURN 

ENDDO 

************************* alteracao 



GET V_CPF 



PROCEDURE ALTE_CLI 
DO WHILE .T. 

DO P_NOME 

IF V_NOMERAZ = 3 PACE (40) 

9 05,05 CLEAR TO 22,78 
RETURN 

BNDIF 

9 03,20 CLEAR TO 03,50 
9 03,32 SAY "ALTERACAO" 

DO TELA_F 
DO MOVE 
VAR.O 

DO TELA_G 
RESP«"S" 

9 23,03 CLEAR TO 23,78 

9 23,03 SAY " CONFIRMA ALTERACAO 7" GET RESP 
PICT "91" 

READ 

IF RBSP="S" 

REPLACE NOMERAZ WITH V_NOMERAZ, ENDERECO 
WITH V_ENDERECO/ 

BAIRRO WITH V_BAIRRO, CIDADE WITH V_CIDADE, 
UF WITH V_UF / 

CEP WITH V_CEP , TELEFONE WITH V_TELEFONE, 

RG WITH V_RGj 

CPF WITH V_CPF, CGC WITH V_CGC, NACIONAL 
WITH V^NACIONAL# 

BSTCIVIL WITH V_BSTCIVIL, PROFISSAO WITH 
V_PROFISSAO; 

DATACADAS WITH V_D AT ACADAS , OBS WITH V_OBS, 
OBS1 WITH V_OBSl 

M="REGISTRO ALTBRADO" 

DO MSG 
ELSE 

LOOP 

ENDIF 

ENDDO 

*************************** EXCLUSA0 

PROCEDURE EXCL^CLI 
DO WHILE .T. 

9 05,04 CLEAR TO 21,78 
DO P_NOME 

9 03,03 CLEAR TO 03,50 
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0 03,30 SAY "BXCLUSAO" 


0 10,37 SAY "CIDADB:" 




IF V_NOMERAZ= SPACE ( 40 ) 


0 10,70 SAY "UF:" 




0 05,04 CLEAR TO 21,78 


0 12,04 SAY "CEP:" 




0 03,03 CLEAR TO 03,50 


0 12,18 SAY "TELEFONB : " 




RETURN 


0 12,36 SAY "RG:" 




ENDIF 


0 12,53 SAY "CPF:" 




0 05,04 CLEAR TO 22,78 


0 14, 04 /SAY "CGC : " 

0 14,28' SAY "NACIONALIDADEj" 




DO TELA_F 




DO HOVE 


0 16,04 SAY "EST. CIVIL:" 




DO TELA_S 


0 16,41 SAY "PROFISSAO:" 




RESP="S" 


0 18,04 SAY "DATA DE CADASTRAMENTO : " 




0 23,03 SAY"CONFIRMA BXCLUSAO ? " GET RESP 


0 20,04 SAY "OBS:" 




PICT "01 " 


RETURN 




READ 






IF RESP="S" 






DELETE 


PROCEDURE MOVE 




M= "REGISTRO EXCLUIDO 1" 


V_NOMERAZ = NOMERAZ 




DO MSG 


V_ENDERECO=ENDERECO 




ELSE 


V_BAI RRO = BAIRRO 




LOOP 


V_C IDADE =CI DADE 




ENDIF 


V„UF=UF 




BNDDO 


V_CEP=CEP 






V_T ELEF ONE = TELEFONB 






V_RG=RG 




PROCEDURE LIMPA 


V_CPF=CPF 




V_NOMERAZ= SPACE ( 40 ) 


V_CGC=CGC 




V_ENDERECO= SPACE ( 40 ) 


V_NACIONAL=NACIONAL 




V_BAI RRO = SPACE (25) 


V_ESTCIVIL=ESTCIVIL 




V_C I DADE = SPACE (25) 


V_PROFISSAO=PROFISSAO 




V_UF « SPACE ( 2 ) 


V_DATAC ADAS « DAT AC AD AS 




V_CEP= SPACE ( 9 ) 


V_OBS=OBS 




V_TELEFONE=SPACE ( 8 ) 


V_OBSl=sOBSl 




V_RG=SPACE ( 12 ) 


RETURN 




V__CPF=SPACE ( 14 ) 






V_CGC=SPACE(19) 






V_NACIONAL= SPACE ( 15 ) 


PROCEDURE TELA„G 




V_ESTCIVIL= SPACE (24) 


DO WHILE .T. 




V_PROFISSAO= SPACE (25) 


SET COLOR TO W/N,W/R+ 




V_DATACADAS=CTOD ( " / / ") 


0 06,22 GET V_NOMBRAZ PICT "0!" 




V_OBS= SPACE (70) 


IF VARoO 




V_OBSls SPACE (70) 


READ 




RETURN 


IF V__NOMERAZ= SPACE ( 40 ) 






RETURN 






ENDIF 




PROCEDURE TELA_F 


ENDIF 




0 05,05 CLEAR TO 20,77 


0 08,14 GET V_ENDERECO PICT "01" 




0 06,04 SAY "NOME/RAZAO SOCIAL : " 


0 10,11 GET V_BAIRRO PICT "01" 




0 08,04 SAY "ENDERECO : " 


0 10,44 GET V_C IDADE PICT "01" 




0 10,04 SAY "BAIRRO : " 


0 10,74 GET V_UF PICT "01" 


mA 



Conserte 
Voce Mesmo 
Seu PC 

Vfdeo-livro, VHS, 112 mi- 
nutos, produg&o VIDEO- 
BOOK. Mesmo sem co- 
nhecimentos de eletrdnlca 
o prdprio usuctrio pode re- 
solver cerca de 90 % dos 
problemas de hardware 
que surgem em PCs.XTs e 
ATs 286, 386 e 486.Troque 
partes defeituosas com 
seguranga, CR$ 54 mil. 
Dispomos tamb6m do vf- 
deo-livro “MONTE VOCE 
MESMO SEU PC”, 48 mi- 
nutos, p/PCs XT e AT 286, 
386 e 486, CR$ 54 mil. 



INFODATA lnform£tica Lt- 
da. f rua da Consolagao, 
393, 52 andar, ci.52, CEP 
01301-000, S&o Paulo, SP. 

(Oil) 259-8169 e 259-6399 



Aprenda 
Em Casa 

MSDOS • Windows 
Dbase IV • Clipper 
Word • Lotus • Excel 
Access • Visual Basic 
PageMaker 




Caixa Postal 1224, Cep 01059 970 

SAo Paulo - SP 

Tel: (011) 258-1140 



CONTABILIDADE 

Super Contabi lidade com Fontes. 
Atualizado p/lei 8383. Fdcll de ins- 
talar e operar. Help. Langamentos 
retroativos. EmissAo de diArio, 
razfio, balancetes e balango. Lan- 
gamentos com ou sem contraparti- 
da. HIstdrico padrfio alterdvel no 
langamento. H istdrico tota I com atd 
240 caracteres. Acesso em janelas 
a piano de contas, histdrico, calcu- 
ladora, agendas, etc. Senha. Mul- 
tiempresa. Recursos List to Print e 
Edit. Acesso ao DOS. 5 disquetes 
de 5.1/4”: CR$ 54.000,00. OU- 
TROS APLICATIVOS: Gestor Co- 
mercial (4 disquetes 5.1/4”, super 
estoque c/emissSo de cupom), CR$ 
54.000; Folha Pgto. Semanal, CR$ 
18.000; Bancdrio (atd 6 contas), 
CR$ 18.000; Mala Direta (clien- 
te.fornecedor, etc), CR$ 28.000,00 



Softs execut^veis prontos para 
o uso em PC XT/AT 286/386/ 
486/OS c/Fontes em CLIPPER. 
INFODATA Inform^tica Ltda., r. 
da ConsolagAo, 393, 5 9 andar, 
cj.52, Centro, CEP 01301 000, 
SSo Paulo-SP. Tels: 

(Oil) 259-8169 e 259-6399 



OS MELHORES 
PROGRAMAS 
PARA WINDOWS 

TENHA EM CASA OS ULT1MOS 
LANQAMENTOS MUNCHA1S COM 
RAPIDEZ E ECONOMIA PARTICIPANDO 
DO 

CLUBE 

DO 

WINDOWS 

RECEBA CATALOGO E UM 
BRINDE ESPECIAL, 
ESCREVENDO PARA 

Clube do Windows 
Caixa Postal 4015 
60451-970 - FORTALEZA 













CONTROLEDECUENTES 


9 12,08 GET V_CEP PICT “#####-###” 


DO CASE 


9 12,27 GET V_TELEFONE PICT *###-####" 


CASE OPC=l 


0 12,39 GET V_RG PICT “##.###.###-#” 


SKIP 


0 12,57 GET V_CPF PICT «###.###.###-##' 


CASE OPC =2 


0 14,08 GET V_CGC PICT »###.###.###/####- 


SKIP-1 


##" 


CASE OPC =3 


9 14,42 GET V_NACIONAL PICT "9!" 


9 05,03 CLEAR TO 22,78 


9 16,15 GET V_ESTCIVIL PICT "9!" 


RETURN 


9 16,51 GET V_PROFISSAO PICT "9!" 


ENDCASE 


9 18,26 GET V_DATACADAS PICT "91" 


IF EOF ( ) 


9 20,08 GET V_OBS PICT "9!* 


M=*FIM DE ARQUIVO* 


9 21,00 GET V_OBSl PICT "9!" 


DO MSG 


IF VARoO 


GOTO TOP 


READ 


ENDIF 


RETURN 


IF EOF ( ) 


ENDIF 


M=*INICIO DO ARQUIVO" 


IF VAR=0 


DO MSG 


VAR=1 


GOTO BOTTOM 


CLEAR GETS 


ENDIF 


ENDIF 


DO TELA_S 


BNDDO 


ENDDO 






PROCEDURE TELA_S 


PROCEDURE RELA_CLI 


DO WHILE .T. 


DO WHILE .T. 


SET COLOR TO W/R+ 


9 23,03 CLEAR TO 23,78 


9 06,22 SAY NOMERAZ 


SET COLOR TO 


9 08,14 SAY ENDERECO 


9 12,32 TO 16,46 DOUBLE 


9 10,11 SAY BAIRRO 


9 13,33 PROMPT * GERAL * MESS * IMPRIME 


9 10,44 SAY Cl DADE 


TODOS OS REGISTROS * 


9 10,74 SAY UF 


9 14,33 PROMPT * ESPECIFICOS * MESS * IMPRIME 


9 12,08 SAY CEP 


O REGISTRO SOLICITADO " 


9 12,27 SAY TELEFONE 


9 15,33 PROMPT * RETORNA * MESS * RETORNA 


9 12,39 SAY RG 


AO MENU DB CLIENTES " 


9 12,57 SAY CPF 


MENU TO OPC 


9 14,08 SAY CGC 


DO CASE 


9 14,42 SAY NACIONAL 


CASE OPC=l 


9 16,15 SAY ESTCIVIL 


DO GERAL 


9 16,51 SAY PROFISSAO 


CASE OPC=2 


9 18,26 SAY DATACADAS 


DO ESFECI 


9 20,08 SAY OBS 


CASE OPC=3 


9 21,08 SAY OBS1 


9 10,06 CLEAR TO 14,19 


SET COLOR TO 


RETURN 


RETURN 


OTHERWISE 


ENDDO 


LOOP 


************************** mensagem 


ENDCASE 




ENDDO 


PROCEDURE MSG 




DO WHILE .T. 




SET CURSOR OFF 


PROCEDURE ESPECI 


9 23,02 CLEAR TO 23,78 


DO WHILE .T. 


9 23,03 SAY M 


9 23,03 CLEAR TO 23,78 


TONE (200, 5 ) 


SET COLOR TO 


INKEY (1.5) 


9 14,27 CLEAR TO 18,51 


9 23,02 CLEAR TO 23,78 


9 14,27 TO 18,51 DOUBLE 


SET CURSOR ON 


9 15,28 PROMPT ~ POR NOME/RAZAO SOCIAL * MESS; 


RETURN 


* IMPRIME POR ORDEM DE NOME* 


ENDDO 


9 16,28 PROMPT * POR C.P.F * MESS; 




* IMPRIME POR ORDEM DE C.P.F. * 




9 17,28 PROMPT " RETORNA * MESS; 


PROCEDURE CONSULTA 


* RETORNA AO MENU ANTERIOR * 


OPC-O 


MENU TO OPC 


DO LIMPA 


DO CASE 


DO TELA^F 


CASE OPC=l 


DO TELA_S 


DO REL.NOME 


DO ANDA 


CASE OPC=2 


RETURN 


DO REL_CPF 




CASE OPC =3 




9 14,27 CLEAR TO 18,51 


PROCEDURE ANDA 


RETURN 


DO WHILE .T. 


OTHERWISE 


9 05,66 TO 09,78 DOUBLE 


LOOP 


9 06,67 PROMPT " AVANCA 1 " MESS " AVANCA 1 


ENDCASE 


REGISTRO NO ARQUIVO* 


BNDDO 


9 07,67 PROMPT " RETORNA 1 " MESS " RETORNA 1 




REGISTRO NO ARQUIVO" 




9 08,67 PROMPT * CANCELA * MESS " RETORNA 


PROCEDURE TESTE_IMP 


AO MENU" 


IMP = "OK* 


MENU TO OPC 


SET CURSOR OFF 




a 
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SET COLOR TO 


CLIENTES" 


0 05,20 CLEAR TO 17,59 


0 L, 65 SAY "DATA s " 


0 10,20 TO 14,59 DOUBLE 


0 L, 72 SAY DATE() 


DO WHILE .T. 


L=L+ 1 


SET COLOR TO 


0 L, 05 SAY "RELATORIO GERAL " 


0 12,22 SAY i# <EHTER> IMPRIMIR OU <ESC> 


0 L, 63 SAY "PAGINA : " 


CANCELAR" 


0L, 73 SAY ALLTRIM (STR( PAG ) ) 


INKEY (0) 


PAG=PAG+1 


IF LASTKEY ( } =13 


L=L+1 


IF .NOT. I SPRINTER ( .T. ) 


0 L, 00 SAY REPLI ("-",80) +CHR (27 ) + "F" 


SET CURSOR OFF 


L=L+1 


0 12,22 SAY " A IMPRESSORA NAO 


0 L, 00 SAY " " 


ESTA PRONTA ! Z 1 * 


L=L+1 


TONE (200, 12) 


DO WHILE L< 59 


LOOP 


DO IMPRESS 


ENDIF 


L=L+3 


0 12,21 SAY * IKPRIMINDO 


SKIP 


m 


IF LASTKEY ()=27 


IMP="OK" 


SET DEVICE TO SCREEN 


SET CURSOR ON 


RETURN 


SET COLOR TO 


ENDIF 


RETURN 


IF EOF ( ) 


ENDIF 


EXIT 


IF LASTKEY ()=27 


ENDIF 


SET DEVICE TO SCREEN 


ENDDO 


0 05,20 CLEAR TO 17,59 


ENDDO 


IMP="N" 


SET DEVICE TO SCREEN 


RETURN 


0 10,20 CLEAR TO 14,59 


ENDIF 


RETURN 


SET CURSOR ON 




SET CURSOR TO 


******************************* 


RETURN 


PROCEDURE REL_NOME 


ENDDO 


IMP="OK" 




DO WHILE IMP = "OK" 




SET COLOR TO 


PROCEDURE QERAL 


CLEAR 


DO TESTE_MP 


0 00,00 TO 24,80 DOUBLE 


PAG=1 


0 02,66 SAY DATEO 


SET ORDER TO 1 


0 03,66 SAY TIME ( ) 


GOTO TOP 


0 01,01 TO 04,78 DOUBLE 


IF LASTKEY ( ) =27 


0 02,27 SAY "CONTROLB DE CLIENTES" 


SET DEVICE TO SCREEN 


0 03,28 SAY "RELATORIO PARCIAL POR NOME" 


0 10,20 CLEAR TO 14,59 


SET ORDER TO 1 


RETURN 


V_NOMERAZ= SPACE { 40 ) 


ENDIF 


0 08,05 TO 12,75 DOUBLE 


DO WHILE .NOT. EOF ( ) 


0 10,07 SAY "DIGITS O NOME s " GET 


SET DEVICE TO PRINTER 


V NOMERAZ PICT "0!" 


L=1 


READ 


0 L, 05 SAY CHR(27)+"E"+"CADASTRO DE 


0 08,05 CLEAR TO 12,75 mA 



/Micro 






Vocc assina e recebe em sua casa durante 
um ano doze exemplares da revista 
Micro Sistemas. 

Pagamento a vista CR$ 28.000,00 
Cheque para 30 dias CR$ 40.320,00 

ENTER PRESS Editora Ltda. 

Rua Washinton Luiz, 9 - Gr.402 
CEP: 20230-900 - Rio de Janeiro - RJ 
Tel.: (021)232/2517 - FAX :(02 1)242-9981 

Validade ate 15.04.94 



Nome: 

Enderego: 

CEP: 

Equipamento: 

ProfisSo: 

Cheque n 2 : 

OBS: 



Banco: 




Assinatura 

Desejo receber da ENTER PRESS Editora Ltda, 
uma assinatura anual (12 meses) da revlsta 
Micro Sistemas. 





CONTROLE DE CUENTES 



IP V_NOMERAZ= SPACE ( 40 ) 


8 L, 00 SAY " " 


RETURN 


L=L+1 


ENDIF 


DO IMPRESS 


SEEK V_NOMERAZ 


SET DEVICE TO SCREEN 


IP EOF ( ) 


8 10,20 CLEAR TO 14,59 


M= "NOME NAO C ADASTRADO " 


IMP="N" 


DO MSO 


RETURN 


LOOP 


ENDDO 


ENDIF 


ENDDO 


PAObI 




DO TESTB_IMP 




DO WHILE IMP = "OK" 


PROCEDURE IMPRESS 


SET DEVICE TO PRINTER 


DO WHILE .T. 


L=1 


8 L, 04 SAY CHR (27 ) +"E"+"NOME/RAZAO 


8 L, 05 SAY CHR (27 ) +"E"+ "CAD ASTRO DE 


SOCIAL s 


CLIENTES" 


+ NOME RAZ+ CHR ( 2 7 ) + "F " 


8 L, 65 SAY "DATA s " 


L=L+1 


8 L, 72 SAY DATE{) 


8 L, 04 SAY CHR (27 ) +"E"+"ENDERBCO : 


L=L+1 


"+CHR (27 ) +"F"+ENDBRECO 


8 L, 05 SAY "RELATORIO PARCIAL POR NOME " 


L=L+1 


8 L, 63 SAY "PAOINA s " 


8 L, 04 SAY CHR ( 27 ) +"E"+"BAIRRO : 


8L,73 SAY ALLTRIM (STR( PAG ) ) 


"+CHR(27 ) +"F"+BAIRRO 


L=L+ 1 


8 L, 38 SAY CHR (27 ) +"E"+"CIDADE ; 


8 L, 00 SAY REPLI ( "-", 80) +CHR(27 ) +"F" 


"+CHR (27 ) +"F"+CIDADE 


L=L+1 


8 L, 72 SAY CHR (27 ) +"E"+"UF : 


8 L, 00 SAY " " 


"+CHR ( 27 ) +"F"+UF 


L=L+1 


L=L+1 


DO IMPRESS 


8 L, 04 SAY CHR (27 ) +"E"+"CEP s 


SET DEVICE TO SCREEN 


"+CHR (27 ) +"F"+CEP 


8 10,20 CLEAR TO 14,59 


8 L, 19 SAY CHR (27 ) +"E"+"TELEFONE : 


IMP="N" 


"+CHR (27 ) +"F"+TELEFONE 


RETURN 


8 L, 41 SAY CHR ( 27 ) +"E"+"RG : 


ENDDO 


"+CHR (27 ) +"F"+RG 


ENDDO 


8 L, 59 SAY CHR (27 ) +"E"+"CPF : 


********************** RELATORIO PARCIAL POR 


"+CHR (27 ) +"F"+CPF 




L=L+1 


PROCEDURE RBL_CPF 


8 L, 04 SAY CHR ( 27 ) +"E"+"CGC : 


IMP="OK" 


"+CHR (27 ) +"F"+CGC 


DO WHILE IMP="OK" 


8 L, 40 SAY CHR (27 ) +"E"+"NACIONALIDADE : 


SET COLOR TO 


"+CHR(27 ) +"F"+NACIONAL 


CLEAR 


L=L+1 


8 00,00 TO 24,80 DOUBLE 


8 L, 04 SAY CHR ( 27 ) +"E"+"EST . CIVIL : 


8 02,66 SAY DATE() 


"+CHR (27 ) +"F"+ESTCIVIL 


8 03,66 SAY TIMEO 


8 L, 41 SAY CHR (27 ) +"E"+"PROFISSAO s 


8 01,01 TO 04,78 DOUBLE 


"+CHR (27 ) +"F"+PROFISSAO 


8 02,27 SAY "CONTROLE DE CLIENTES" 


L=L+1 


8 03,28 SAY "RELATORIO PARCIAL POR C.P.F." 


8 L, 04 SAY CHR (27 ) +"E"+"DATA DE 


SET ORDER TO 2 


CADASTRAMENTO : "/ 


V_CPF=SPACE ( 14 ) 


+CHR (27 ) +"F"+DTOC (DATACADAS) 


8 08,05 TO 12,75 DOUBLE 


LcL+1 


8 10,07 SAY "DIGITS O C.P.F. s " GET V CPF 


8 L, 04 SAY CHR (27 ) +"E"+"OBS s 


PICT "###.###.###-##" 


"+CHR (27 ) +"F"+OBS 


READ 


L=L+1 


8 08,05 CLEAR TO 12,75 


8 L, 08 SAY OBS1 


IF V_CPF=SPACE(14) 


L=L+1 


RETURN 


RETURN 


ENDIF 


ENDDO 


SEEK V_CPF 




IF EOF ( ) 




M= "C.P.F. NAO CADASTRADO" 


PROCEDURE SAIDA 


DO MSG 


DO WHILE .T. 


LOOP 


8 14,36 TO 17,42 DOUBLE 


ENDIF 


8 15,37 PROMPT " NAO " MESS " RETORNA AO MENU 


PAG=1 


PRINCIPAL" 


DO TESTE_IMP 


8 16,37 PROMPT " SIM " MESS " SAI DO SISTEMA E 


DO WHILE IMP = "OK" 


RETORNA AO DOS" 


SET DEVICE TO PRINTER 


MENU TO OPC 


L=1 


DO CASE 


8 L, 05 SAY CHR (27 ) +"E"+"CADASTRO DE 


CASE OPC=l 


CLIENTES" 


DO CONTCLI 


8 L, 65 SAY "DATA : " 


CASE OPC =2 


8 L, 72 SAY DATE() 


RETURN 


L=L+1 


OTHERWISE 


8 L, 05 SAY "RELATORIO PARCIAL POR C.P.F." 


ENDCASE 


8 L, 63 SAY "PAOINA : " 

8L, 73 SAY ALLTRIM (STR( PAG ) ) 

LsL+1 

8 L, 00 SAY REPLI ("-",80) +CHR{27 ) +"F" * 
LsL+1 


ENDDO 


AAA A A A A A A A A A AAAAAAAA AAA A A A A AAA A A AAA A A A A A A A A A A A A AAA A A AAA AAA A A AAA A A AAA A A A A A 




□ 
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SOFTPACK ■ um langamento em SHAREWARE de LAERCIO VASCONCELOS COMPUT AQAO 

Disquetes de 1.2 MB com chelos de excelentes programas de SHAREWARE. Para micros AT com drive de 1.2 MB e Winchester. Prego: US$ 4,60 



SOFTPACK 1 - Utilitarios para MS-DOS 

26TIME20 - Cria um relfigio na 26* linha de uma tela CGA 
DATEBOOK - Agenda eletrfinica simples e de fdcil uso 
DIARY - Diirio eietrfinico para anotagfies pessoais 
EZFORM - Cria formulArios personalizados 
HYHELPER - Cria arquivos de HELP tipo HIPERTEXTO 
SYSCHK - Fomece informagfies sobre a configuragSo do PC 
PCMAO - 79 utilitarios super-uteis da PC MAGAZINE 
PKZ110 - Compactador/Descompactador PKZIP completo 
QED10 • Editor de textos simples e ficil, com acentuagfio 
QMFCV305 - Copia disquetes protegidos e formata disquetes 
com capacidades elevadas (Ex: 1720kB em discos de 1.44MB) 
STS320 - Facilita operagfies com arquivos, tipo XTREE 
TPAINT - Programs para desenhos. CGA, HERCULES, VGA 
©SETUP - Facilita uso do SETUP STANDARD do AT 
MEMORIA - Aprenda a usar bem a memfiria do seu micro 
VIRUS - Aprenda a proteger seu computador dos vims 
WHAT21 - Acrescenta descrigfies aos arquivos dos diretfirios 
ZIPZAP71 - Editor de trilhas e setores do disco 



SOFTPACK 2 - Anti virus 

SCAN, CLEAN e VSHIELD - Detector, eliminador e escudo anti 
virus, versfio 108 (ou outra mais atual) 

VSUMX304 - Di explicagfies completas sobre 2015 virus 



SOFTPACK 3 - Programas VGA para MS-DOS 

OIFEXE - Transforma arquivos GIF em EXE “self display - 
GIFLITE - Reduz em 30% o tamanho de arquivos GIF 
BIT2GRAY - Transforma arquivo preto/branco em "gray scale" 
HUAAK - Conversor de formatos de arquivos grfificos 
OIF2JPG - Compacts e descompacta arquivos GIF ate 5 vezes 
GWS61 - Exc. visualizador, conversor e melhorador de telas 
CSHOW860 - Excel ente SHELL para arquivos gtfficos. 

PICEM • Visualizador de telas grificas GIF e PCX 



SOFTPACK 4 - Progs, gntfcos para WINDOWS 

GWSWIN11 - Excel ente programs visualizador, conversor e me- 
lhorador de telas grdficas. (Graphic Workshop for Windows) 
PMAN • Cria efeitos especiais sobre telas grificas. 

GRABPRO - Capturador de telas do WINDOWS. 

PSP102 - Conversor, visualizador e criador de efeitos em telas 



SOFTPACK 6 - Jogos VGA para crian$as 

MARIOVGA - Jogo tipo SUPER MARIO 

EC8 - Livro de colorir eietrfinico, fAcil de usar 

MCRAYON - Outro Livro de colorir 

FUNYFACE - Desenha caras engragadas, pinta e imprime. 

CAVES - Excelente jogo tipo arcade, da APOGEE. 

JOGOMEM • Jogo da memfiria com animagfio. 

AGENT - Outro jogo da APOGEE, com vinos niveis. 



SOFTPACK 6 - Jogos VGA (jovens e adultos) 

2100 • Jogo de Xadrez 

ARK2 - Jogo tipo ARKANOID (uma espficie de ping-pong) 

ATLANT1 - Jogo de guerra entre nag*es, tipo WAR 

COMIC4 - Jogo tipo arcade, com vinos niveis, labimtos, etc 

EGATREK2 - Jogo STAR TREK 

EGAVGAPB - PINBALL 

KLONOK23 - Jogo de cartas tipo “solitaire" 

PH - Strip-poker CGA, com duas jogadoras 
QUATRIS - Jogo de blocos tipo TETRIS 



SOFTPACK 7 - Aplicativos para MS-DOS 

BANNER - Cria faixas, cartazes, letreiros, posters, etc 
CMGR1 1 • Gerencia contas bancdrias e cartfies de crddito, etc. 
CRVPLOT • Plota grificos (X-Y) em impressoras EPSON. 
FDRAW225 • Faz fluxogramas, diagramas, organogramas. 
HOMEHELP • Gerenciador de atividades donrtesticas. Agenda, 
cartfies de crfidito, fitas K-7, etc. 

UTDIARY - Diirio eletrdnico para anotagfies pessoais. 



SOFTPACK 8 - Aplicativos para MS-DOS 

ASEASY55 - Planilha semelhante ao LOTUS 1-2-3. Famosissimo 
programas de SHAREWARE. 

CARS - Gerencia manutengfio de carros e mdquinas 
ADDRES23 - Agenda eletidnica para uso pessoal. 

FORMGEN2 • Excelente programa para criar formulfirios. Um 
best seller de SHAREWARE, um doe mais usados nos E.U.A. 
STOCK - Para controls de es toque, bem ttcil de usar. 



SOFTPACK 9 - Programas para WINDOWS 

ADRMAN - Gerenciador de nomes, enderegos, telefones 
AMW10 - Arc Master Gerencia arquivos .ARJ, ZIP, etc 
BENCHG11 • Made performance da placa de video 
DESK240 • Cria um DESKTOP virtual, maior quo a tela 
DSKTRK22 - Catalogador de arquivos e disquetes 
ICONS1 - Biblioteca de 1300 leones 
SPEAKER - Use sons do WINDOWS no alto falante do PC 
VBRUN - Programa VBRUN100.DLL, que 6 uma RUN TIME LI- 
BRARY do VISUAL BASIC. 



SOFTPACK 10 - Utilitarios para MS-DOS 

HYPDSK45 - HYPER DISK, um dos melhores programas de 
CACHE DE DISCO, acelera a velocidade do seu WINCHESTER. 
ANAD207 - ANAD1SK, versfio 2.07. Analisa, repara, edita dis- 
quetes. Copia disquetes protegidos. 

MBACK - Otimo programa de BACKUP do winchester, de forma 
compactada, reduz & metade o numero de discos necessfirios. 
LHA213 - Compactador e descompactador de arquivos LZH. 

ORG - DESFRAGMENTADOR de winchester, araima os arquivos 
para que o acesso fique mais rfipido 

DRC - Transforma um arquivo de texto em um executfivel "self 
display", incluindo menus e cores, fficil utilizagfio. Excelente I 
FONTMNIA - Altere os caracteres de sua placa de video VGA. 
BEN311 - BATCH ENHANCER. Facilita o uso de arquivos de 
BATCH, tomando-os mais poderosos a flexlveis. Acrescenta 42 
novos comandos para voefi criar seus arquivos BAT. 



SOFTPACK 11 - Aplicativos para MS-DOS 

WAMPUM - Gerenciador de banco de dados, compativel com 
DBASE. Ideal para quern nfio sabe programar, mas quer manter 
sua prfipria base de dados. Fficil operagfio, atravfis de menus. 
DAYO - Aplicagfies comerciais DAYO, para pequenas empresas 
Controle financeiro, estoque, mala direta, cadastro de clientes... 
BOOKG - Gerencia sua biblioteca pessoal, catalogando livros e 
permitindo buscas por titulo, autor ou categoria, lista relatfirios, 
ODAY - Difirio eletrdnico muito versfitil. 

LOCKOUT - Protege o seu micro atravfis de senhas 



SOFTPACK 12 - Utiliterios para MS-DOS 

ARJ241 - Compactador ARJ versfio 2.41 
PKZ204 - Compactador PKZIP versfio 2.04 
ARCMAS92 - Facilita o uso do ARJ, PKZIP e outros. 

HOT50 - 50 utilittrios da revista PC MAGAZINE. 

CATALOG • Catalogador de disquetes. Com ele voefi localiza 
rapid amente em que disquetes estfio gravados seus arquivos 
POWERBAT - BATCH ENHANCER. Acrescenta novos comandos 
aos arquivos de BATCH, e transforma arquivos BAT em EXE 



SOFTPACK 13 - Jogos VGA para joves a adultos 

DUKE - Excelente jogo ARCADE: DUKE NUKEM 
JILL - Excelente jogo ARCADE: JILL OF THE JUNGLE 
BATNAV - Jogo de batalha Naval 
GODMOM - Jogo ARCADE com 50 niveis 
CRUSHER • Jogo PAC-MAN, mas muito melhor 
AMARILLO • Jogo de POKER profissional 
HEROHRT - Jogo ARCADE: HERO'S HEART 



SOFTPACK 14 - Flguras p. editoragSo eletrfinica 

Contfim 315 figures "CLIP ART’ em formato PCX para usar em 
editoragfio eletrfinica. As figures contfim pessoas, si m bo I os, 
computadores e peritericos, animais, etc. Podem ser usadas por 
qualquer editor que permita inserir figures no texto: WORD, 
WORD PERFECT, WORD STAR, etc. 



SOFTPACK 15 - Telas VGA com paisagens 

Contem 56 telas VGA color, com fotos e desenhos de pai- 
sagens, com resolugfies de ate 640x480. Excelente forma de 
tester as capacidades grfificas de um monitor VGA ou SUPER 
VGA. Indui tambfim o programa PICEM, usado para ver as telas. 



SOFTPACK 16 - Telas com garotas da PLAYBOY 

Contem 56 telas VGA color, com fotos de betas garotas em 
trajes de praia (bikinis, etc.). Sfio originais de revistas como 
PLAYBOY. Resolugfies de 640x480. Contdm o programa PICEM, 
usado para ver as telas. 



SOFTPACK 17 - Telas (XXX) para maiores de 18 

Contdm 34 telas VGA color, com fotos erfiticas (XXX), com re- 
solugfies de 640x480. Cada uma delas tern duas ou mais mu- 
Iheres. Imprfiprio para menores de 18 anos. Inclui tambfim o 
programa PICEM, usado para ver as telas. 



SOFTPACK 18 - Fontes para WINDOWS 3.1 

Contdm 51 novos tipos de fontes TRUE TYPE para usar com o 
WINDOWS 3.1, com qualquer tipo de impressora. Bom para criar 
documentos bem apresentados, com vfirios tipos de letras. 
Podem ser usadas por qualquer programa do WINDOWS 3.1 . 



SOFTPACK 19 - Treinamento 

SAA - Curso mtrodutfirio de micro-informfitica, em portuguds. 
BASPRIMR - Curso de linguagem BASIC (inglds) 

DB4TUT - Curso de DBASE (inglds) 

COMTUT44 - Curso introdutfirio de informfirica e DOS em inglds 
MMASTER - Curso para aperfeigoar sua rnemfiria (inglds) 
DOSREF - Referdncia dos comandos do DOS, em portuguds. 
FASTYPE - Curso de digitagfio. Aprenda a digitar rfipido. 



SOFTPACK 20 - Aplicativos para MS-DOS 

SKYGLOBE - Programa de astronomia que mostra o mapa do 
cdu visto de qualquer parte do mundo, em qualquer data. 
MERCURY - Resolve equagfies matemfiticas, plota grfificos, etc. 
EZPROJ - Programa gerenciador de projetos, organiza crono- 
gramas. Bom para chefes e gerentes. 

WFLAGS - Banco de dados com informagfies geogrfificas sobre 
todos os paises do mundo. 

WED50 - Editor ASCII. Opera com arquivos de qq tamanho. 



SOFTPACK 21 - Programas VGA para MS-DOS 

CUBES - Desenha cubos em movimento em uma tela VGA. 
DAZZLE - Desenha ealeidosefipios eletrfinicos super coloridos 
DTPM - Programa para editoragfio eletrfinica de desenhos em 
preto e branco. Fficil e rfipido. 

FRA1N172 - Desenha mais de 80 tipos diferentes de FRACTAIS 
super coloridos. 

GIFDESK - Visualizador de telas grfificas GIF. 

NEOSHOW - Cria apresentagfies tipo "SLIDE SHOW", usando 
arquivos GIF ou PCX. Excelente III 



SOFTPACK 22 - Jogos VGA para jovens e adultos 

BRIX - Excelente jogo de racioclnio com encaixe de blocos. 
CYRUS - Jogo de Xadrez 

EMPIRE - Jogo estratfigico tipo WAR, de conquista do mundo. 
KEEN - Jogo espacial tipo ARCADE, com vfirias fases. 
OVERKILL - Jogo espacial. Lute contra naves inimigas. 



SOFTPACK 23 - Jogos VGA para crian$as 

8DIN0 - Livro de colorir elerfinico. A crianga escolhe vfirias 
paisagens, vfirios tipos de dinossauros, colore e imprime. 
KEENDM - Jogo espacial, no estilo do SUPER MARIO. 
MATHRESC - MATH RESCUE, excelente jogo educative tipo 
ARCADE, onde a crianga exercita as operagfies aritmfiticas. 
WRESC • Excelente jogo ARCADE para criangas 



SOFTPACK 24 - Utilitarios para MS-DOS 

MULTBOOT - Permits que o computador tenha multiplos ar- 
quivos CONFIG.SYS e AUTOEXEC.BAT. 

PCUTIL - 40 utilitarios que facilitam o uso do MS-DOS. 

SS26 - Screen saver. Funciona com video CGA, EGA e VGA. 
EBL407 - Extended Batch Language. Cria arquivos de BATCH 
mais poderosos e fficeis de usar. 

PHANTOM - Exc. para criar demos de programas. Memoriza a 
seqOfincia de teclas digitadas, e depois, o processamento pode 
ser repetido a partir de seqQfincia memorizada. 

SHEZ90A - SHELL para arquivos compactados ZIP e ARJ. Fa- 
cilita o uso do PKZIP e ARJ, e as operagfies usuais do MS-DOS. 



SOFTPACK 25 - Telas com garotas da PLAYBOY 

Contem 96 telas VGA color, com fotos de garotas de bikini, com 
resolugfio de 320x200, com 256 cores. Imprfiprio para menores 
de 18 anos. Requer uma placa de video VGA ou SUPER VGA. 
Inclui tambfim o programa PICEM, usado para ver as telas. 



SOFTPACK 26 - Telas (XXX) para maiores de 18 

Contem 92 telas VGA color, com fotos erfiticas (XXX), com re- 
sol ugao de 320x200, com 256 cores. Imprfiprio para menores de 
18 anos. Requer uma placa de video VGA ou SUPER VGA. Inclui 
tambfim o programa PICEM, usado para ver as telas. 



SOFTPACK 27 - Telas (XXX) para maiores de 1 8 

Contim 92 telas VGA color, com fotos erfiticas (XXX), com re- 
solugfio de 320x200, com 256 cores. Imprfiprio para menores de 
18 anos. Requer uma placa de video VGA ou SUPER VGA. Inclui 
tambfim o programa PICEM, usado para ver as telas. 



Cada disco custa US$ 4,50. Converta para cruzeiros pelo D6lar Comercial, valor de VENDA, na data da compra. Voefi pode adquirir os discos SOFTPACK 
diretamente em nosso escritfirio, ou de qualquer lugar do Brasil, pelo correio. Para comprar pelo correio, fa<?a o seguinte: 

1) Envie para nossa CAIXA POSTAL, uma carta registrada, indicando os discos que vocfi deseja, e cheque CRUZADO e NOMINAL a LAERCIO VASCONCELOS. 

2) Se preferir, pode fazer um depfisito no Banco Itau, agfincia 0310, conta 60.757-7, em nome de Lafircio Vasconcelos. Na carta vocfi deve enviar junto com seu 
pedido um XEROX LEGiVEL do recibo banefirio. 

3) Pode fazer depfisito banefirio e fazer seu pedido por FAX. Transmits seu pedido, telefone para contato, numero do seu FAX e o RECIBO DO DEP6SITO. 

OBS: Nfio esquega de indicar seu nome e endere^o completes. OBS: Nfio operamos com VALES POSTAIS nem com REEMBOLSO POSTAL 
LAERCIO VASCONCELOS COMPUTAQAO LTDA. 

Av. Rio Branco, 156/2812, Centro, Rio de Janeiro. Tel (021) 262-1672, FAX 240-0663. Cartas para CAIXA POSTAL 4391 , CEP 20.001-970, Rio de Janeiro RJ. 
































ESPECIAL 



Automatize, com seguranga, a geragao de telas em seus programas 



Gerador de telas parte Final 



Micro: IBM PC XT/AT 
Memdria: 512 KBytes 
Video: CGA 
Unguagem: Clipper 
Requisites: Nenhum 



Marcos Santello 



GTE LA! i.PRG 



* Pr ogr ama : OTELA1 1 

* Funcao. . sGera programa fonte na Unguagem 
Cobol Microsoft e/ou MicroBase. 

* Chamado . ; GTELA1 0 . PRG 

* Gerador COBOL, 

TF2 a . F . 

decl 

IHay*3K[100] ,inB^HA[100] ,LQGLTK[1DQ] t UB JDKIB[4],TJ^JIEO[4] 
decl 

LINHA_PROC [100], LINHA_PR02 [100], TAB_NOM [99] 
clea sere 

0 01, 01 to 03, 79 
® 02, 30 say 'Aguarde,.,' 

9 04, 01 to 24, 79 
for N a 1 TO 99 

TAB_NOM[N] « spac ( 30 } 

next 

* Abre o arquivo padrao Cobol 
if ! file (NTELADEF) 

® 20, 20 say 'Definigao da tela ainda no 
Criada. . . ' 

for A = 1 to 1000 
next 
endi 

TEXTO a memoread ( NT E LADE F ) 
rest from &NTELAMEM addi 
IND = 0 

* Preenche matrizes com linhas do campo 
Memo. 

decl linhas [24] 
for lin a l to 24 

linhas [lin] = memoline (TEXTO, 80 , LIN) 

next 

* Forma tabela de caracteres validos 
ASCII = chr ( 32 ) +chr ( 45 ) 

for B a 48 to 57 

ASCII = ASCII + chr (B) 

next 

for B a 65 to 90 

ASCII a ASCII + chr(B) 

next 

* Gera o arquivo D.O.S com as definicoes da 
tela. 

NOMEVAR a spac (30) 

Z_TIPT a spac (01) 

Z_ROT = spac (30) 
set curs on 

0 02, 25 say 'Criando Lay-out para Linguagem 
Cobol ' 

0 05, 05 say 'Cria tela de Dados [W] ork/ 
[P]rocedure 7' get Z_TIPT pict ' I ' ; 



valid { Z_TIPT $ 'WP') 

read 

if lastkeyU == 27 

rele all like *,* 



retu 

endi 

if Z_TIPT aa 'W' 
TAB_ATRIB[1] = 
TAB_ATRIB [2 ] = 
TAB_ATRIB [ 3 ] = 
TAB_ATRIB [ 4 ] = 
TAB_TIPO [ 1] = 
TAB_TIPO[2] = 
TAB_TIPO [3] = 

TAB_TIPO [4] = 

else 



'HIGHLIGHT ' 
'REVERSE- VIDEO ' 
'BLINK ' 

'USING ' 

'FROM ' 

'TO ' 



0 07, 05 say 'Nome da Sub-Rotina com 
definigao de tela.:' get NOMEVAR ; 

pict '01 9 valid f_nome() 

read 

if lastkey ( ) == 27 
f close (NUMARQ) 
rele all like * . * 



retu 

endi 



0 07, 05 say spac (73) 
Z ROT = NOMEVAR 



TAB_ATRIB[1] = 
TAB_ATRIB [2] = 
TAB_ATRIB [3] = 
TAB_ATRIB [ 4 ] = 
TAB_TIPO [ 1] = 
TAB_TIPO[2] a 
TAB_TIPO [3] = 
TAB_TIP0[4] = 



'ZERO-FILL. ' 
'AUTO-SKIP. ' 
'SPACE-FILL. ' 
' WITH PROMPT 
' WITH UPDATE 
' WITH BEEP ' 

t i 



endi 



set curs off 
for LIN = 1 to 24 

LINHA2 - LINHAS [LIN] 

if 1 empty (LINHA2) 

do f_acha with LIN, LINHA2 
if lastkeyO == 27 
retu 
endi 

endi 

LINHAS [LIN] o LINHA2 

next 
if TP2 

Z_CRIA = spac (01) 
set curs on 

9 16, 05 say 'Cria WORKING-STORAGE 
SECTION <S/N> : ' get Z_CRIA pict ' ! ' ; 

valid (Z_CRIA $ 'SN') 

read 

if lastkeyO == 27 
f close (NUMARQ) 
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rele all like *.* 
retu 
endi 

0 18, 35 say 'Aguarde...' 
if £ i 1 e ( NTELACOB ) 

dele file &NTELACOB 
endi 

NUMARQ = fcreate { NTELACOB, 0) 
if ferror() ! * 0 
tone (700,1) 
tone (500, 1) 

0 20, 25 say 'Problemas na criagao do 
arquivo s ' +str ( f error ( ) , 2 ) 
wait ' ' 
endi 

set curs off 
if Z_CRIA 'S' 

for A = 1 to IND 

f_glin ( LINHA^WORK [A] ) 

next 

Z_LINHA = spac (07)+ 'SCREEN SECTION. 

' +chr ( 13 ) +chr ( 10 ) 

fwrite (NUMARQ, Z_LINHA, len ( Z_LINHA) ) 
endi 

if Z_TIPT == 'W' 

Z_LINHA = spac ( 07 ) + ' 01 
' +alltrim (NTELA) + ' -W. ' 
f_glin(Z_LINHA) 
for A = 1 to IND 

f_glin(LINHA_TELA[A] ) 
if type ( 'LINEAJTE2 [A] 9 ) != 'U' 

f_glin(LINHA_TE2 [A] ) 
endi 

next 

endi 

else 

if file (NTELACOB) 

dele file &NTELACOB 
endi 

NUMARQ = fcreate ( NTELACOB, 0) 
if ferror() 1» 0 
tone (700, 1) 
tone (500, 1) 

0 20, 25 say 'Problemas na criagao do 
arquivo : ' +str ( f error ( ) , 2 ) 
wait ' 9 
endi 
endi 

Z_LINHA = spac ( 07 ) + ' 01 ' +alltrim (NTELA) ' 

f _gl in ( Z_LINHA ) 

Z_LINHA = spac (11) +'03 BLANK SCREEN.' 
f_glin(Z_LINHA) 

* Faz a moldura padrao 

if M_FLAGM = = 'S' 

f _moldura ( ) 
endi 

* Gera tela de Constantes 
for LIN = 1 to 24 

iif ( !enpty (LINHAS [LIN] ) , f_acha^( LIN, LINHAS [UN] ) , ") 
next 

* Gera linhas na Procedure Division 
if TF2 

if Z_TIPT == 'P' 

Z_LINHA b spac ( 06 ) + ' *** Bloco com 
definicao de tela de Entrada ***' 
f_glin(Z_LINHA) 

Z_LINHA = spac ( 07 ) +alltrim(Z_ROT) + ' . ' 

f_glin(Z_LINHA) 

for A b 1 to IND 

f _gl in ( LINHA_PROC [A] ) 
if type ( 'LINHA_PR02 [A) ' ) != 'U' 

f _gl in ( LINHA_PR02 [A] ) 
endi 

next 

endi 

endi 

fwrite (NUMARQ, chr (26) , 1) 
f close ( NUMARQ) 
rele all like *.* 



proc f_acha 



* Cria as variaveis 
para LIN, STRING 
priv PIC, COLUNA 
VARIAVEL b ' ' 
ESPACOS «* ' ' 
PICTURE o ' ' 
PICTURE2 b ' ' 

ATRIB = ' ' 

PIC » 0 

A =1 

TIPO b ' ' 

NOMEVAR = spac (30) 
Z_CRIA a spac (01) 

* Localiza variavel 
for A = 1 to 80 



if subs (STRING, A, 1) $ 'x# A ' 

COLUNA » A 

do whil subs ( STRING, A, 1) $ 'x# A .,' 
VARIAVEL » VARIAVEL + 
subs (STRING, A, 1) 

if subs (STRING, A, 1) $ 'x# A ' 

PIC b PIC + 1 
endi 

A a A + 1 
endd 

do f_mostra_v 
if lastkeyO bb 27 
retu 
endi 

Z_C0NF = if ( Z — CRIA == 'S',.t.,.f.) 
if Z_CONF 

TF2 = .T. 

IND = IND + 1 
* 

* Linhas da Working-Storage 

* 

LINHA_TBLA [ IND] » spac(ll)+'03 
LINE ' +str zero (LIN, 2 ) + ' COLUMN '+; 

str zero { COLUNA, 2 ) +PICTURE 
LINHA_TE2 [ IND] 

Spac ( 15 ) +ATRIB+TIPO+ all trim (NOMEVAR) + ' . ' 
LINHA__WORK [ IND) = 

spac ( 07 ) + ' 77 • +spac ( 02 ) +N0MEVAR+ PI CTURE2+ ESPACOS 
* 

* Linhas da Procedure Division 

* 

Z_LINHA 

spac (11)+ 'ACCEPT ( ' + str zero ( LIN, 2 ) + ' '+; 

str zero ( COLUNA, 2 ) + ' ) 

' +all trim (NOMEVAR) + ; 

TIPO+ATRIB 

if len(Z_LINHA) <= 72 

LINHA_PROC [IND] « Z„LINHA 
else 

LINHA_PROC[IND] » 

spac (11)+ 'ACCEPT ( ' +str zero ( LIN, 2 ) + ' , '+; 

str zero ( COLUNA, 2 ) + ' ) 

' + all trim (NOMEVAR) + ; 

TIPO 

LINHA_PR02 [IND] = 

spac (11) +ATRIB 

endi 

TAM = len (VARIAVEL) 

STRING = 

stuff ( STRING, COLUNA, TAM, spac ( TAM) ) 
endi 

VARIAVEL « ' ' 

ESPACOS = ' ' 

PICTURE b ' ' 

PIC = 0 

if IND > 0 

TAB_NOM [ IND] = NOMEVAR 

endi 







NOMEVAR = spac( 30) 

ATRIB = ' ' 

TIPO = # ' 

Z_CRIA = spac( 01) 

endl 
next 
retu 

proc f_mostra_v 
******************* 

priv Z_TAB 

* Quando for variavel do tipo alfanumerico 
ou data, sera 

* retirado os pontos e as virgulas da mesma. 
if subs (VARIAVEL, 1,1) » 'x' .or. 

subs (VARIAVEL, 1, 1) — 

VARIAVEL = strtran (VARIAVEL, ' ) 

VARIAVEL « strtran (VARIAVEL, ') 
endi 
do case 

case subs (VARIAVEL, 1, 1) == 'x' 

Z_TAB = ' Alf anum£rica ' 

ESPACOS = ' VALUE SPACES . ' 

PICTURE *= ' PIC 
X ( ' +strzero (PIC, 3) + ' ) ' 

PICTURE2 = PICTURE 
case subs (VARIAVEL, 1, 1) == ' A ' 

Z_TAB » 'Data' 

ESPACOS = ' VALUE ZEROS . ' 
do case 

case PIC < 3 

PICTURE = ' PIC 99' 

PICTURE2 = ' PIC 

9( ' +strzero(PIC, 3 ) + ' ) ' 

case PIC > 2 .and. PIC < 5 
PICTURE = 'PIC 99/99' 
PICTURE2 = ' PIC 
9 ( ' + str zero (PIC, 3 ) + ' ) ' 

case PIC > 4 

PICTURE = ' PIC 99/99/99' 
PICTURE2 ■ ' PIC 
9 ( ' +str zero (PIC, 3 ) + ' ) ' 
endc 

case subs (VARIAVEL, 1, 1) == '#' 

Z_TAB a 'Numeric a' 

ESPACOS = ' VALUE ZEROS . ' 
if ('.' $ VARIAVEL) .or. (',' $ 
VARIAVEL) 

VARIAVEL s= 

strtran (VARIAVEL, 'Z' ) 

PICTURE e ' PIC ' + VARIAVEL 
VARIAVEL = 

strtran (VARIAVEL, 'Z', '#') 
else 

PICTURE - ' PIC 
9 ( ' + str zero (PIC, 3 ) + ' ) ' 
endi 

VIRG = len( VARIAVEL) - 

at ( ' , VARIAVEL) 

if at(', ', VARIAVEL) > 0 
PIC2 = PIC - VIRG 

PICTURE2 s. ' PIC 
9 ( ' +str zero { PIC2 , 3 ) + ' ) ' 

PICTURE2 - 

PICTURE2+ ' V' +repl ( ' 9 ' , VIRG) 
else 

PICTURE2 « ' PIC 
9 ( '+strzero(PIC, 3) + ' ) ' 
endi 

endc 

Z_CRIA e spac(01) 

0 05, 00 say STRING 
set colo to I 

0 05, COLUNA-1 say VARIAVEL 
set colo to 

0 10, 05 say 'Cria variavel <S/N>:' 

0 12, 05 say 'Variavel tipo: ' +Z_TAB+ ' com a 
picture de : ' +str (PIC, 3) +; 



' Caracteres . ' +spac ( 10 ) 

0 14, 05 say 'Nome da variavel ...:' +spac ( 35) 
set curs on 

0 10, 26 get Z_CRIA pict 'I' valid Z_CRIA 

$ 'SN' 

read 

if Z_CRIA =o 'S' 

0 14, 26 get NOMEVAR pict '0!' valid 
f _nome ( ) 
read 

if lastkey() == 27 
f close (NUMARQ) 
rele all like *.* 
retu 
endi 

if Z_TIPT == 'W' 

0 16, 04 to 18,31 

0 17, 05 prom 'Using ' 

0 17, 15 prom 'From ' 

0 17, 25 prom 'To ' 

menu to IND_TIP 

TIPO ss TABjriPO[IND_TIP] 

0 20, 04 to 22,67 
0 21, 05 prom 'Sem Atributo ' 

0 21, 20 prom 'Highlight ' 

0 21, 35 prom 'Reverse-Video' 

0 21, 53 prom 'Blink ' 

menu to IND_ATR 

ATRIB ss TAB_ATRIB[IND_ATR] 

0 16, 04 clea to 22, 67 
else 

0 16, 04 to 18,70 

0 17, 05 prom 'Prompt ' 

0 17, 20 prom 'Update ' 

0 17, 35 prom 'Beep ' 

0 17, 50 prom ' S/Parametros ' 

menu to IND_TIP 

TIPO s= TAB_TIPO[INDJTIP] 

0 20, 04 to 22,73 

0 21, 05 prom 'N/Parametros ' 

0 2l/20 prom 'Zero-Fill ' 

0 21, 35 prom 'Auto-Skip ' 

0 21, 50 prom 'Space-Fill ' 

menu to IND_ATR 

ATRIB = TAB_ATRIBtIND_ATR] 

0 16, 04 clea to 22, 73 
endi 
endi 

set curs off 
retu 

***************** 
func f_nome 

* Consists a formacao da variavel 
if iisalpha (NOMEVAR) 
retu .F. 
endi 

for LETRA = 1 to 1 en ( NOMEVAR ) 

if ! (subs (NOMEVAR, LETRA, 1) $ ASCII) 
retu .F. 
endi 

next 



for N = 1 TO IND 
if NOMEVAR == 
N = 100 
retu .F. 
endi 

next 
retu .T. 



func f_acha_p 



TAB_NOM[N] 



Cria a linha de constanstes da SCREEN 
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SECTION. 

para LIN, STRING 

Z_LEFT = len(STRING) 

Z_STRING = ltrim( STRING) 

Z_LEFT = Z_LEFT - len(Z_STRING) + 1 

Z_STRING = r tr im { Z_STRING ) 

Z_BRANCO = chr ( 32 ) +chr ( 32 ) 

Z_CONTA = 0 

* Verifica se a linha preencbe os 80 

caracteres 

if !(Z_BRANCO $ STRING) 

FLAG_LIN_C = .t. 

FLAG_TIP = .f. 
else 

FLAG_LIN_C = .f. 

FLAG_TIP = . t . 
endi 

* Ac ha as strings e separa em tamanhos de 
30 caracteres 

do whil (Z_BRANC0 $ STRING .and. 

! empty ( STRING) ) . or . FLAG_LIN_C 

if Z_CONTA >50 
tone (700, 2 ) 
tone (500,2) 

0 23, 25 say 'Erro na gera?ao da 

tela. . . ' 

wait ' ' 
exit 
endi 

Z_C0NTA = Z_CONTA + 1 
if FLAG_TIP 

if len ( Z_STRING ) < 3 

Z__SUBSTR = ltrim(Z_STRING) 
else 

Z_SDBSTR = 

subs ( Z_STRING, 1, at ( Z_BRANCO, Z_STRING) -1) 
if Z_CONTA >24 
Z_SUBSTR = 

subs ( Z_STRING, 1, len (Z_STRING) ) 
endi 
endi 

else 

Z_SUBSTR = alltrim ( Z_STRING) 

endi 

if len(Z_S0BSTR) > 0 

if len ( Z_SUBSTR) < 31 

Z_LINHA = spac ( 11 ) + ' 03 LINE 
'+str zero (LIN, 2) + ' COLUMN ' + ; 

strzero ( Z_LEFT, 2 ) + ' 

VALUE " ' + Z_SUBSTR+ 9 

f_glin(Z_LINHA) 

else 

&& tern mais de 30 caracters 

Z_LINHA = spac (11) +'03 LINE 
9 +strzero ( LIN, 2 ) + ' COLUMN ' + ; 

strzero ( Z_LEFT, 2 ) + ' 
VALUE " ' +subs ( Z_SUBSTR, 1,30)+'".' 
f_glin(Z_LINHA) 

Z_REST = len ( Z_SUBSTR) - 30 

if len ( Z__SUBSTR ) < 61 

Z_LINHA = spac (11) +'03 LINE 
' +s tr zero ( LIN, 2 ) + ' COLUMN '+; 

strzero (Z_LEFT+30, 2) +' 

VALUE "' + ; 

subs ( Z_SUBSTR, 3 1 , Z_REST )+'".' 
f_glin(Z_LINHA) 
else 

Z_LINHA = spac (11) +'03 LINE 
'+str zero (LIN, 2) + ' COLUMN '+; 

s tr z er o ( Z_LEFT+ 30,2) + ' 

VALUE " ' + ; 

subs ( Z_SUBSTR, 31,30)+'".' 
f_glin(Z_LINHA) 

Z_REST = len ( Z_SUBSTR) - 60 
Z_LINHA = spac (11) +'03 LINE 
'+strzero(LIN, 2 ) + ' COLUMN '+; 

strzero ( Z_LEFT+ 60,2)+' 

VALUE "'+; 



subs ( Z_SUBSTR ,61, Z_REST )+'".' 
f_glin(Z_LINHA) 
endi 
endi 
endi 

STRING = 

stuff ( STRHK3, Z_L£FT, len(Z_SUBSIR) , spac ( len (Z_SUBSTR) ) ) 
Z_LEFT = len (STRING) 

Z_STRING = ltrim( STRING) 

Z_LEFT - Z_LEFT - len ( Z_STRING) + 1 
FLAG_LIN_C = .f. 
endd 
retu ' ' 

******************** 

func f_glin 
******************** 

* Gera linhas no arquivo de descricao da 

Screen. 

para BUFFER 

BUFFER = BUFFER+chr ( 13 ) +chr ( 10 ) 
f write (NUMARQ, BUFFER, len (BUFFER) ) 
if ferror() 1= 0 
tone (400,2) 
tone (300,2) 

0 23, 10 say ; 

' Problemas na Grava^ao, Verifique se 
o disco nao estA cheio...' 
wait ' ' 
canc 
endi 

f seek (NUMARQ, 0,1) 



func f__moldura 
****************** 

* Gera moldura de acordo com parametros 
passados . 

for A b M_LIN1 TO M_LIN2 
Z_LINHA « spac (11) +'03 LINE 
' +strzero ( A, 2 ) + ' COLUMN 
'+strzero(M_COLl, 2) +; 

' VALUE ' + "" +chr ( 186 ) + ' " . ' 
f_glin(Z_LINHA) 

Z_LINHA = spac (11) +'03 LINE 
' +strzero ( A, 2 ) + ' COLUMN 
' +str zero ( M_C0L2 , 2 ) + ; 

' VALUE ' + "" +chr ( 186 ) + ' " . ' 
f_glin(Z_LINHA) 
next 

Z_LINHA = spac (11) +'03 LINE 
' +strzero (M_LIN1, 2 ) + ' COLUMN 
' +strzero (M_C0L1+1, 2 ) + ; 

' PIC X('+strzero((M„COL2- 
(M_C0L1+1) ) ,2)+' ) FROM ALL 
' + ' " '+chr (205) + ' " . ' 
f _gl in ( Z_LINHA) 

Z_LINHA = spac (11) +'03 LINE 
' +strzero (M_LIN2, 2,) + ' COLUMN 
'+strzero(M_COLl+l, 2 ) +; 

' PIC X('+strzero((M_COL2- 
(M_C0L1+1) ) ,2)+') FROM ALL 
' + "" +chr (205) + ' " . ' 
f_glin(Z_LINHA) 

Z_LINHA = spac (11) +'03 LINE 
'+strzero(M_LIN2, 2 ) + ' COLUMN 
' +strzero (M_C0L1, 2 ) +; 

' VALUE ' + ' " '+chr (200) + ' " . ' 
f_glin(Z_LINHA) 

Z_LINHA = spac (11) +'03 LINE 
' +strzero (M_LIN2 , 2 ) + ' COLUMN 
' +str zero (M_COL2 , 2 ) + ; 

' VALUE ' + "" +chr ( 188 ) + ' " . ' 
f_glin(Z_LINHA) 

Z_LINHA = spac (11) +'03 LINE 
'+strzero(M_LINl, 2)+' COLUMN 
' +str zero ( M_C0L1 , 2 ) + ; 
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retu 

end! 

Z_CONF = i f { Z_CRI A == 'S',.t.,.f.) 
if Z__CONF 
TF2 = .T. 

IND = IND + 1 

TAM = len (VARIAVEL) 

LINHA_TELA [ IND] = ' LOCATE 
' +str (LIN, lennum ( LIN) ) + ', ' +str (COLUNA, 2 ) +; 

' : PRINT 

STRING$ ( ' +str zero ( TAM, 2 ) + ' , chr$ ( ' + ; 

str ( Z_P, 2 ) + ' ) ) : LOCATE 

' +str (LIN, 2 ) + ' , ' + ; 

str (COLUNA, 2)+' i INPUT 

' + NO ME VAR 

STRING = 

stuff ( STRING, COLUNA, TAM, spec (TAM) ) 
end! 

VARIAVEL = 1 ' 

PIC = 0 

if IND > 0 

TAB_NOM [ IND] = NOMEVAR 

endi 

NOMEVAR = spec (30) 

Z_CRIA = spec (01) 
endi 
next 
retu 



proc f_most_bas 
priv Z_TAB 

* Quando for variavel do tipo alf anumerico 
ou data, sera 

* retirado os pontos e as virgulas da 
mesma . 

if subs (VARIAVEL, 1, 1) == 'x' .or. 
subs (VARIAVEL, 1,1) == /A ' 

VARIAVEL = strtran( VARIAVEL, ' . ' ) 

VARIAVEL = strtran (VARIAVEL , ) 
endi 
do case 

case subs (VARIAVEL, 1, 1) « 'x' 

Z_TAB = 'Alf anum6rica' 

Z_P = 46 

case subs (VARIAVEL, 1, 1) == '#' .or. 
subs (VARIAVEL, 1, 1) = = ' A ' 

Z_TAB = 'Num6rica' 

Z_P as 48 

endc 

Z_CRIA = spac (01) 

0 05, 00 say STRING 
set colo to I 

0 05, COLUNA- 1 say VARIAVEL 
set colo to 

0 10, 05 say 'Cria variAvel <S/N>:' 

0 12, 05 say 'VariAvel tipo: ' +Z_TAB+ ' com a 
picture de : ' +str (PIC, 3 ) +; 

' Caracteres . ' +spac ( 10 ) 

0 14, 05 say 'Nome da 
vari&vel . . . : ' +spac ( 35 ) 
set curs on 

0 10, 26 get Z_CRIA pict '!' valid Z_CRIA 

$ 'SN' 

read 

if Z_CRIA == 'S' 

0 14, 26 get NOMEVAR pict '0!' valid 
f _nomeb ( ) 
read 

if lastkey ( ) == 27 
f close (NUMARQ) 
rele all like *.* 
retu 
endi 

if IND > 0 

TAB_NOM [IND ] = NOMEVAR 

endi 



if subs (VARIAVEL, 1,1) == 'x' 

NOMEVAR = all trim (NOMEVAR) + ' $ ' 
else 

NOMEVAR = alltrim( NOMEVAR) 
endi 
endi 

set curs off 
retu 



func f_nomeb 

***************** 

* Consiste a formacao da variavel 

if iisalpha (NOMEVAR) 
retu .F. 

endi 

for LETRA a 1 to len (NOMEVAR) 

if ! (subs (NOMEVAR, LETRA, 1) $ ASCII) 
retu .F. 
endi 

next 

for N = 1 TO IND 

if NOMEVAR == TAB_NOM [N] 

N = 99 
endi 

next 

retu ( iif (N == 100, . F. , .T. ) ) 



func f lincons 



* Cria a linha de constanstes da Tela 
Padrao Basic 
para LIN, STRING 

Z_LEFT * len (STRING) 

Z_STRING » 1 trim (STRING) 

Z_LEFT = Z_LEFT - len ( Z_STRING) + 1 
Z_STRING = rtrim ( Z_STRING ) 

Z_LINHA = str(add(0Z_NLIN),5)+' LOCATE 
' +str ( LIN, 2 ) + ' , ' +str ( Z_LEFT, 2 ) 
f_linb ( Z_LINHA) 
if len ( Z_STRING) < 50 

Z_LINHA * str ( add (0Z_NLIN) , 5) + ' 

PRINT " ' +Z_STRING+ "" 
f_linb ( Z_LINHA) 
else 

Z_LINHA = str(add(0Z_NLIN) ,5)+' PRINT 
" ' +subs { Z_STRING, 1,50) + "" 
f_linb ( Z_LINHA) 

Z_REST = len ( Z_STRING) - 50 
Z_LEFT = Z_LEFT +50 
Z_LINHA = str (add(0Z_NLIN) , 5 ) + ' 

LOCATE ' +str ( LIN, 2 ) + ' , ' +str ( Z_LEFT, 2 ) 
f_linb(Z_LINHA) 

Z_LINHA a str ( add (0Z_NLIN) , 5 ) + ' PRINT 
" ' +subs ( Z_STRING, 51 , Z_REST) + "" 
f_linb(Z_LINHA) 
endi 
retu ' ' 



******************** 



func f linb 



* Gera linhas no arquivo Texto. 
para BUFFER 

BUFFER = BUFFER + spac (78- 
len( BUFFER) ) +chr ( 13 ) +chr ( 10 ) 

f write (NUMARQ, BUFFER, len (BUFFER) ) 
if ferror() != 0 
tone (400,2) 
tone(300,2) 

0 23, 10 say 'Problemas na 
Gravagao, Verifique se o disco nao estA 
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cheio . . . ' 

wait " 
canc 
endi 

foaok ( NUMARQ , 0 , 1 ) 
retu ' ' 



func f_mold_b 



* Gera moldura de aoordo com parametroo 
passados . 
priv Z_LINH 

Z_LINH - str (val (M_C0L2 ) - val(M_COLl) ,2) 
Z_LINHA = str ( Z_NLIN, 5 ) + ' REM — > MOLDURA 
PADRAO ' 
f_linb ( Z_LINHA) 

Z_LINHA - str (add(0Z_NLIN) , 5) +' CLS' 
f_linb(Z_LINHA) 

Z_LINHA - str (add(0Z_NLIN) , 5) + ' FOR LXN - 

' +M_LIN1+ ' TO ' +M_LIN2 

f_linb(Z_LINHA) 

Z_LINHA » str (add(0Z_NLIN) ,5)+' LOCATE 
LIN, ' +M_C0L1+ ' x PRINT CHR$ { 186 ) ; ' 
f_linb ( Z_LINHA) 

Z_LINHA . str (add(0Z_NLIN) , 5) +' LOCATE 
LIN, ' +M_COL2+ ' x PRINT CHR$ ( 186 ) ; ' 
f _1 inb ( Z_LINHA) 

Z_LINHA - str (add(0Z_NLIN) , 5) + ' NEXT LIN' 
f_linb(Z_LINHA) 

Z_LINHA - str(add(0Z_NLIN),5)+' LOCATE 
' +M_LIN1+ ' , ' +M_COLl+ ; 

'SPRINT STRINGS {'+Z_LINH+', 205);' 
£_linb ( Zj_LINBA) 

Z_LINHA « str ( add ( 0Z_NLIN) , 5 ) + ' LOCATE 
' +M_LIN2+ ' , ' +M_C0L1+ ; 

'SPRINT STRINGS ('+Z_LINH+', 2 05);' 
f_linb(Z_LINHA) 

Z_LINHA « str(add(0Z_NLIN) ,5)+' LOCATE 
' +M_LIN1+ ' , ' +M_COLl+ ; 

'SPRINT CHR$ (201) ; ' 
f_linb(Z_LINHA) 

Z_LINHA = str(add(0Z_NLIN),5)+' LOCATE 
' +M_LIN1+ ' , ' +M_COL2+ ; 

'SPRINT CHR$ ( 187 ) ; ' 
f_linb(Z_LINHA) 

Z_LINHA » str (add(0Z_NLIN) , 5) +' LOCATE 
' +M_LIN2+ ' , ' +M_COLl+ ; 

'SPRINT CHR$ (200) ; ' 
f_llnb(Z_LINHA) 

Z_LINBA = str (add(0Z_NLIN) ,5)+' LOCATB 
' +M_LIN2+ ' , ' +M_COL2+ ; 

'SPRINT CHR$ ( 188) ; ' 
f_linb(Z_LINHA) 
retu " 



func add 
para Z_NLIN 

* Adiciona de dez em dez no numero de linha 
do Programa. 

Z_NLIN « Z_NLIN +10 
retu ( Z_NLIN) 

* Fim do Programa s GTELA12 . PRO 



| GTELAI 3.PRG "1 



* Programa: GTELAI 3 

* Func ao Gera programa fonte na linguagem 
QuickBasic. 

* Chamado . s GTELAI 0 . PRG 

* Gerador QUICKBASIC. 

TF2 « .F. 

decl LINHA_TELA [100], TAB_NON [99] 
clea sere 

9 01, 01 to 03, 79 
9 02, 30 say 'Aguarde...' 

9 04, 01 to 24, 79 



for N « 1 TO 99 

TAB_NOM[N] = spac (30) 

next 

* Abre o arqulvo padrao QuickBasic 
If ! f lie (NTELADBF) 

9 20, 20 say 'Definigao da tela alnda no 
Crlada. « • ' 

for A b 1 to 1000 
next 
endl 

TEXTO b memoread( NTELADBF) 
rest from &NTBLAMEM addl 
M_LIN1 = str (M_LIN1, 2 ) 

M_LIN2 = str ( M_LIN2 , 2 ) 

M_C0L1 = str ( M_C0L1 , 2 ) 

M_COL2 o str ( M_COL2 , 2 ) 

* 

decl llnhas[24] 
for lln b 1 to 24 

linhas [lin] > memoline (TEXTO, 80, LIN) 

&& Preenche matrlzes com linhas. 
next 

&& do campo tlpo Memo. 

* Forma tabela de caracteres valldos 
ASCII = chr (32) 

for B = 48 to 57 

ASCII b ASCII + chr (B) 

next 

for B « 65 to 90 

ASCII = ASCII + chr (B) 

next 

* Gera o arqulvo D.O.S com as deflnicoes da 
tela. 

Z_NROT = spac (20) 

IND » 0 
set curs on 

9 02, 03 say 'Lay-out para Linguagem 
QuickBasic - Nome da Rotinas ' ; 

get Z_NROT pict '91' 
valid ( f_testr ( ) ) 
read 

if lastkeyO »« 27 

rele all like *•* 
retu 
endi 

Z_NROT b all trim ( Z_NROT)+' s ' 
set curs off 

* Gera tela de Variaveis 
for LIN s 1 to 24 

LINHA2 b LINHAS [LIN] 

if ! empty (LINHA2) 

do f_val_qbas with LXN,LINHA2 
if lastkeyO -- 27 
retu 
endi 

endi 

LINHAS [LIN] » LINHA2 

next 

9 18, 35 say 'Aguarde...' 
if f lie (NTELAQBAS) 

dele file & NTELAQBAS 
endi 

NUMARQ » f create (NTELAQBAS, 0) 
if ferrorO 1 b 0 
tone (700, 1) 
tone (500, 1) 

9 20, 25 say 'Problemas na criagao do 
arqulvo ; ' +str ( f error 0,2) 
wait " 
endi 

* Faz a moldura padrao QuickBasic 
f _1 inqb ( Z_NR0T ) 

if M_FLAGM »« 'S' 

f_mold_qb( ) 
endi 

* Gera tela de Constantsa 

Z_LINHA - ' REM > DISPLAY DA TELA' 
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f _linqb ( Z_LINHA) 
for LIN - 1 to 24 

Ilf (lenity (LHAS [LIN]) # f_JJj»q( LIN/ LQBAS [LIN] ), ") 
next 

If IND > 0 

Z_LINHA - ' REM > ENTRADA DE DADOS' 

f_linqb ( Z_LINHA) 

Z_LINHA - ' COLOR 15' 
f_linqb(Z_LINHA) 
endl 

for A - 1 to IND 

f__linqb ( LINHA__TELA[A] ) 

next 

if IND > 0 

Z_LINHA « ' COLOR 7,0' 
f _linqb ( Z_LINHA) 
endl 

f olose (NUMARQ) 
rele all like *,* 
retu 



proc f_val_qbas 

* Cria as variaveis 
para LIN, STRING 

priv PIC, COLUNA, VARIAVBL, NOMEVAR 
VARIAVEL - " 

ESPACOS « ' ' 

PICTURE - ' ' 

PICTURES - " 

PIC « 0 

A » 1 

Z_P - 0 

NOMEVAR - spao (30) 

Z.CRIA - spac (01) 

* Looaliza variavel 
for A - 1 to 80 

if subs (STRING, A, 1) $ 'x# A ' 

COLUNA m A 

do whil subs (STRING, A, 1) $ 'x# A .,' 
VARIAVBL - VARIAVEL + 
subs (STRING, A, 1) 

if subs (STRING, A, 1) $ ' x# A ' 

PIC « PIC + 1 
end! 

A - A + 1 
endd 

do f_most_qbas 
if lastkey() « 27 
retu 
endl 

Z_CONF - if(Z_CRIA 'S',.t.,.f.) 
if Z_CONF 

TF2 - *T. 

IND - IND + 1 
TAM « len (VARIAVEL) 
LINHA_TBLA [ IND] - ' LOCATE 
' +str ( LIN, 2) + ' , ' +str ( COLUNA, 2 ) + ; 

' : PRINT 

STRING$ ( ' +str zero ( TAM, 2 ) + ' , chr $ ( ' + ; 

str (Z_P, 2) + ' ) ) : LOCATE 

'+str(LIN,2)+', '+; 

Str ( COLUNA, 2 ) + ' s INPUT 

", ' + NOMEVAR 

STRING - 

stuff (STRING, COLUNA, TAM, spac (TAM) ) 
end! 

VARIAVBL « " 

PIC - 0 

NOMEVAR - spac (30) 

Z_CRIA - spac (01) 
end! 
next 
retu 



priv Z_TAB 

* Quando for variavel do tipo alfanumerlco 
ou data, sera 

* retirado os pontos e as virgulas da 
mesma . 

if subs (VARIAVEL, 1,1) — 'x' .or. 
subs (VARIAVBL, 1,1) — ' A ' 

VARIAVBL - str tran (VARIAVBL, ' . ' ) 

VARIAVBL - strtran (VARIAVBL, ' , ' ) 
endl 
do case 

case subs (VARIAVBL, 1,1) » 'x' 

Z_TAB = ' Alf anum6rlca ' 

Z_P a 46 

case subs (VARIAVEL, 1,1) ■» '#' .or. 
subs ( VARIAVBL ,1,1) — ' A ' 

Z_TAB - 'Numirica' 

Z_P -48 

endc 

Z_CRIA = spac (01) 

9 05, 00 say STRING 
set colo to I 

9 05, COLUNA- 1 say VARIAVEL 
set colo to 

9 10, 05 say 'Cria variAvel <S/N>:' 

9 12, 05 say 'VariAvel tipo: '+Z_TAB+ ' com a 
picture de : '+str (PIC, 3) +; 

' Caracteres • ' +opac ( 10 ) 

9 14, 05 say 'Nome da 
vari&vel . . . : ' +spac ( 35 ) 
set curs on 

9 10, 26 get Z_CRIA pict '!' valid Z_CRIA 

$ 'SN' 

read 

if Z_CRIA — 'S' 

9 14, 26 get NOMEVAR pict '91' valid 
f _nomeqb ( ) 
read 

if lastkey ( ) »» 27 
f close (NUMARQ) 
rele all like *.* 
retu 
end! 

if IND > 0 

TAB_NOM [ IND] « NOMEVAR 

endi 

if subs (VARIAVEL, 1,1) » 'x' 



NOMEVAR 

else 

NOMEVAR 

endi 

endi 

set curs off 
retu 



func f_nomeqb 



all trim (NOMEVAR) + ' $ 1 
al 1 trim ( NOMEVAR ) 



* Consist® a formacao da variavel 

if lisalpha (NOMEVAR) 
retu .F. 

endi 

for LETRA - 1 to len ( NOMEVAR ) 

if ! (subs (NOMEVAR, LETRA, 1) $ ASCII) 
retu .F. 
endi 

next 

for N - 1 TO IND 

if NOMEVAR TAB_NOM[N] 

N - 99 
endi 

next 

retu(iif(N 100, .F., .T. ) ) 



proc f_most_qba8 



func f testr 



MICRO SISTEMAS 63 







64 MICRO SISTEMAS 







next 

for B - 97 to 122 

ASCII - ASCII + chr(B) 

next 

* Gera o arquivo D.O.S com as definlcoes da 
tela. 

G 02, 20 say 'Criando Lay-out para 
Linguagem Dbase\Clipper ' 

Z_MENU_SN a 'N ' 
set curs on 

G 05, 10 say 'Tela de Menu <S/N>s' get 
Z_MENU_SN plot ' I ' ; 

valid (Z_MENU_SN $ 'SN') 

read 

if lastkeyO ■■ 27 
rele all like *.* 
retu 

endi 

set curs off 
IND « 0 

if Z_MENU_SN »■ 'N' 

Z_TELA - ' ' 
for LIN o 1 to 24 

LINHA2 - LINHAS [LIN] 

if I empty ( LINHA2 ) 

do f_a_cli with LIN, LINHA2 
if lastkeyO — 27 
retu 
endi 

endi 

LINHAS [LIN] - LINHA2 
Z_TELA » Z_TELA + LINHAS [LIN] 

next 

Z_CRIA » spac (01) 
if IND > 0 

set curs on 
Z_CRIA » 'S' 

G 16, 25 say 'Cria variiveis < 3 / 

N>: ' get Z_CRIA pict 'I' ; 

valid{ Z_CRIA $ 'SN') 

read 

set curs off 

endi 

endi 

G 18, 35 say 'Aguarde...' 
if f i le ( NTELACLI ) 

dele file &NTELACLI 
endi 

NUMARQ * f create (NTELACLI, 0) 
if f error O != 0 
tone (700, 1) 
tone (500, 1) 

G 20, 25 say 'Problemas na criagao do 
arquivo i ' +str ( f error 0,2) 
wait ' ' 
endi 

Z_LINHA - '** Definicao da tela **' 
f_glin_c(Z_LINHA) 

Z_LINHA * 'clear screen' 
f_glin_c ( Z_LINHA) 

* Cria molduras com comandos G 00,00 to 
00,00 doub 

* G 00,00 to 

00,00 

do f_simples 
do f_dupla 

* Gera as linhas de constantes de tela 
if Z_MENU_SN » 'N' 

for LIN - 1 to 24 

iif ( !enpty( LINHAS [LIN] ) , f_c_cli (UN, LUBAS [LIN] ),") 
next 

endi 

* Cria molduras 
for LIN - 1 to IND_M 

f_glin_c(TAB_MOLD[LIN] ) 

next 

if M_FLAGM as 'S' 
f_mod_cli ( ) 
endi 



* Cria tela de Menu 
if Z_MENU_SN s« 'S' 

Z_LINHA a 'set wrap on' 
f _fflin_e ( Z_LINHA) 

Z_LINHA « 'set message to' 
f _glin_c ( Z_LINHA) 
for LIN a l to 24 

iif ( !enpty(LDBAS[UN] ) , fjneo 4 _c (LIN, LUBAS [UN] ),") 
next 

Z_LINHA « 'menu to mopcao' 
f__glin_c ( Z_LINHA) 

endi 

* Cria variaveis 

if Z_MENU_SN .. 'N' 
if IND > 0 

Z_LINHA = '** Definicao da Tela de 
Entrada de Dados +*' 

f _glin_c ( Z_LINHA) 

Z_LINHA » 'set date brit' 
f _glin_c ( Z_LINHA) 
endi 

if Z_CRIA = 'S' 

for A a 1 to IND 

f _glin_c ( LINHA_WORK [A] ) 

next 

endi 

* Tela de Entrada de Dados 
for A = 1 to IND 

f_glin_c ( LINHA_TELA [A] ) 

next 

if IND > 0 

Z_LINHA = 'read' 
f_glin_c(Z_LINHA) 
endi 
endi 

Z^LINHA a '****** -> Eof ( ) <- **★**' 

f_glin_c ( Z_LINHA) 

f close (NUMARQ) 

rele ail like *.* 

retu 

proc f_a_cli 

* Cria as variaveis 
para LIN, STRING 

priv PIC, COLUNA, VARIAVEL, NOMEVAR 
VARIAVEL = ' ' 

ESPACOS a ' ' 

PICTURE = ' ' 

PICTURE2 = ' ' 

ATRIB = ' ' 

PIC = 0 

A = 1 

NOMEVAR a spac (30) 

Z_CRIA » spac (01) 

* Localiza variavel 
for A = 1 to 80 

if subs (STRING, A, 1) $ 'x# A ' 

COLUNA a A 

do whil subs (STRING, A, 1) $ 'x# A .,' 
VARIAVEL a VARIAVEL + 
subs (STRING, A, 1) 

if subs (STRING, A, 1) $ 'x# A ' 

PIC = PIC + 1 
endi 

A = A + 1 
endd 

do f_m_cli 
if lastkeyO aa 27 
retu 
endi 

Z_CONF a if ( Z_CRIA == 'S',.t.,.f.) 
if Z_CONF 

TF2 = .T. 

IND = IND + 1 
TAM a len( VARIAVEL) 
LINHA_TELA [ IND] a 'G 
' +s tr zero ( LIN, 2 ) + ' , ' +s tr zero ( COLUNA, 2 ) + ; 

' get 

' +all trim (NOMEVAR) + PICTURE 
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LINHA_WORK [ IND] = 
all trim (NOMEVAR) + ' - ' + PICTURES 
STRING * 

stuff ( STRING, COLUNA/ TAM, spac (TAM) ) 
endl 

VARIAVEL a ' ' 

ESPACOS = ' ' 

PICTURE » ' ' 

PIC - 0 

if IND > 0 

TAB_NOM [ IND] « NOMEVAR 

endi 

NOMEVAR a spac (30) 

ATRIB - ' ' 

TIPO o ' ' 

Z_CRIA ■ spac (01) 
endi 
next 
retu 

proc f_m_cli 



priv Z_TAB 

* Quando for variavel do tipo alfanumerico 
ou data, sera 

* retirado os pontos e as virgulas da 
mesma . 

if subs (VARIAVEL, 1,1) »» 'x' .or. 
subs (VARIAVEL, 1, 1) »= 

VARIAVEL * strtran( VARIAVEL, ' . ') 

VARIAVEL a strt ran (VARIAVEL, ' , ' ) 
endi 
do case 

case subs (VARIAVEL, 1,1) « 'x' 

Z_TAB = ' Alf anum6rica' 

PICTURE = ' ' 

PICTURE2 = 

' spac ( ' +str zero ( len (VARIAVEL) , 3 ) + ' ) ' 
case subs (VARIAVEL, 1, 1) » /A/ 

Z_TAB = 'Data' 

PICTURE a ' ' 

PICTURE2 = 'ctod( " / / ") ' 

case subs (VARIAVEL, 1, 1) «« '#' 

Z„TAB = 'NumSrica' • 

VARIAVEL = 

strtran( VARIAVEL, ', ',chr(10) ) 

VARIAVEL » 
strtran( VARIAVEL, 

VARIAVEL = 

s trtr an (VARIAVEL, chr ( 10) , ' . ') 

PICTURE = ' pict "®E 
' +VARIAVEL+ ' " ' 

PICTURE2 = ' 0 ' 

endc 

Z_CRIA - spac (01) 

9 05, 00 say STRING 
set colo to I 

9 05, COLUNA- 1 say VARIAVEL 
set colo to 

9 10, 05 say 'Cria variAvel <S/N>s' 

9 12, 05 say 'Variavel tipos ' +Z_TAB+ ' com a 
picture de i ' +str (PIC, 3 ) +; 

' Caracteres . ' +spac ( 10 ) 

9 14, 05 say 'Nome da 
variavel. . . : # +spac(35) 
set curs on 

9 10, 26 get Z_CRIA pict '!' valid Z_CRIA 

$ 'SN' 

read 

if Z_CRIA «« 'S' 

9 14, 26 get NOMEVAR valid f_nomec() 
read 

if lastkey ( ) == 27 
f close (NUMARQ) 
rele all like *.* 
retu 
endi 
endi 

set curs off 
retu 



func f_nomec 
***************** 

* Consiste a formacao da variavel 
if ! i salpha ( NOMEVAR) 

retu .F. 
endi 

for LBTRA - 1 to len (NOMEVAR) 

if ! (subs (NOMEVAR, LBTRA, 1) $ ASCII) 
retu .F. 
endi 

next 

for N « 1 TO IND 

if NOMEVAR a- TAB_NOM[N] 

N a 100 
retu .F. 
endi 

next 
retu .T. 
func f_c_cli 

* Cria linhas de constantes* 
para LIN, STRING 

Z_LEFT « len (STRING) 

Z_STRING a ltrim( STRING) 

Z_LEFT = Z_LEFT - len( Z_STRING) + 1 
Z_STRING » rtrim ( Z_STRING) 
if len(Z_STRING) < 60 

Z_LINHA a '9 '+strzero (LIN, 2) + ' , 

' <f strzero ( Z_LEFT, 2 ) +; 

' say " ' +Z_STRING+ ' 
f _glin_c ( Z_LINHA) 
else 

Z_LINHA = '9 '+strzero(LIN, 2) + ' , 
'+strzero(Z_LEFT, 2) +; 

' say 

"'+subs(Z_STRING, 1, 60) + "" 
f _glin_c ( Z_LINHA) 

Z_REST a len(Z_STRING) - 60 

Z_LEFT = Z_LEFT +60 

Z_LINHA a '9 '+strzero (LIN, 2) + ' , 

' +strzero (Z_LBFT, 2) +; 

' say 

" ' +subs ( Z_STRING, 61, Z__REST) + "" 
f_linb ( Z_LINHA) 
endi 
retu ' ' 
func f_menu_c 

* Cria linhas de Menu, 
para LIN, STRING 

Z_LEFT = len (STRING) 

Z_STRING a ltrim( STRING) 

Z_LEFT - Z_LEFT - len( Z_STRING) + 1 
Z_ STRING « rtrim (Z_STRING) 

Z_LINHA = '9 '+s tr zero (LIN, 2) + ' , 

' +strzero ( Z_LEFT, 2) +; 

' prompt " ' +Z_STRING+ "" 
f_glin_c(Z_LINHA) 
retu ' ' 

func f_mod_cli 

* Gera moldura de acordo com parametros 
passados. 

Z_LINHA = '9 ' +str zero ( M_LIN1 , 2 ) + ' , 
'+strzero(M__COLl, 2) + ' to ' + ; 

strzero (M_LIN2 , 2 ) + ' , 
'+strzero(M_COL2, 2) + ' double' 
f_glin_c ( Z_LINHA) 
retu ' ' 

proc f_simples 

* Transforms molduras desenhadas em 
comandos do ClipperXDbase 
Z_B0LEAN1 = . F . 

Z_BOLEAN2 a .F. 

Z_B0LEAN3 = .F. 

Z_PA 83 a 0 
IND_M a 0 

do whil '+' $ Z_TELA .or. '+' $ ZJTELA .or. 
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$ Z_TELA . or. '+' $ Z_TELA 
Z_PASS = Z_PASS + 1 
if Z_PASS > 40 
tone(500, 2) 
tone (400, 2) 
set colo to W* 

9 23, 30 say 'Erro no desenho da 
moldura . . • 9 
wait ' ' 
set colo to 
exit 
endi 

* Acha posicao da moldura 
for LIN - 1 to 24 

Z_LINHA « LINHASCLIN] 
if ' + ' $ Z_LINHA 

Z_C0L1 « at { ' + ' / Z_LINHA) 

Z_LIN1 » LIN 
Z_B0LEAN1 » .T. 
endi 

if ' + ' $ Z_LINHA 
if Z_LIN1 — LIN 

Z_COL2 - at { ' + ' , Z_LINHA) 
Z_BOLEAN2 = .T. 
endi 
endi 

if '+' $ Z_LINHA 

Z_C0L11 » at ( ' + ' , Z_LINHA) 
if Z_C0L1 == Z_C0L11 
Z_LIN2 = LIN 
Z_BOLEAN3 « .T. 
endi 

endi 

next 

* Se for am achados todos parametros 
retira moldura das linhas originals 

* e cria comando 9 to ... com 
coordenadas da Moldura. 

if Z_B0LEAN1 .and. Z_B0LEAN2 .and. 
Z_BOLEAN3 

for LIN » 1 to 24 

if Z_LIN1 == LIN .or. Z_LIN2 a= 

LIN 

Z_SPC = ( Z_COL2 - Z_C0L1) + 

1 

LINHAS [LIN] = 

stuff (LINHAS [LIN] , Z_C0L1, Z_SPC, spac ( Z_SPC ) ) 
endi 

if LIN >= Z_LIN1 .and. LIN <= 

Z_LIN2 

LINHAS [LIN] « 

stuff (LINHAS [LIN] # Z_C0L1/ 1, ' ') 

LINHAS [LIN] = 

s tuf f ( LINHAS [ LIN] , Z_COL2 , 1 , ' ' ) 
endi 
next 

* Gera a moldura com codificao 
Clipper/Dbase 

IND_M = IND_M + 1 
TAB_MOLD [ IND_M] = '9 
' +str zero ( Z_LIN1, 2 ) + ' , 

' +str zero ( Z_C0L1 , 2 ) + ; 

' to 

' +strzero ( Z_LIN2 , 2 ) + 9 , 9 +strzero ( Z_COL2 / 2 ) 

endi 

* Retira os caracters '++' e '++' das 
variavel Z_TELA 

if Z_BOLEANl .or. Z_BOLEAN2 .or. 
Z_BOLEAN3 

Z_TELA - ' ' 

for LIN a 1 to 24 

Z_TELA = Z__TELA + LINHAS [LIN] 

next 

endi 

Z.BOLEAN1 a . F. 

Z_BOLEAN2 = .F. 

Z_BOLEAN3 = .F. 
endd 

* Cria comando replicate/ quando conjuntos 



de caracteres 196 for 

* maior que tres 

Z_TRAC » chr ( 196) +chr ( 196) +chr ( 196) 
for LIN a 1 to 24 

* Permanece enquando existlr a 
sequencia de 3 caracters 205 

do whil Z_TRAC $ LINHAS [LIN] 

Z_POS a at (chr( 196) /LINHAS [LIN] ) 
Z_LOC a o 

* Acha o tamanho da linha 
do whil chr(196) «» 
sxibs (LINHAS [LIN] , Z_POS+Z_LOC # 1) 

Z_LOC a Z_LOC + 1 
endd 

IND_M a IND_M + 1 
TAB_MOLD[IND_M] a '9 
'+strzero (LIN/2) + # , # +strzero(Z_POS, 2) +; 

g say 

replicate ( chr (196), ' +strzero ( Z_LOC , 2 ) + 9 ) 9 
LINHAS [LIN] a 

stuff (LINHAS [LIN] , Z_POS, Z_LOC, spac ( Z_LOC ) ) 
endd 

next 

retu 

proc f_dupla 

* Trans forma molduras desenhadas em 
comandos do ClipperXDbase 
Z_B0LEAN1 = .F. 

Z_BOLEAN2 = .F. 

Z_BOLEAN3 a .F. 

Z_PASS a 0 

do whil ' + ' $ Z__TELA .or. ' + ' $ Z_TELA .or. 

$ Z_TELA .or. $ ZJTELA 

Z_PASS = Z_P AS S + 1 
if Z_PASS > 40 
tone (500, 2) 
tone (400, 2 ) 
set colo to W* 

9 23, 30 say 'Erro no desenho da 
moldura . • • 9 
wait " 
set colo to 
exit 
endi 

* Acha posicao da moldura 
for LIN a 1 to 24 

Z_LINHA = LINHAS [LIN] 
if ' + ' $ Z__LINHA 

Z_C0L1 a at ( ' + ' , Z_LINHA) 

Z_LIN1 = LIN 
Z^BOLEANl a .T. 
endi 

if '+' $ Z_LINHA 
if Z_LIN1 LIN 

Z_COL2 = at( / + / ,Z_LINHA) 
Z_BOLEAN2 = .T. 
endi 
endi 

if $ Z_LINHA 

Z_C0L11 = at ( # + ' , Z_LINHA) 
if Z_C0L1 a« Z_COLll 
Z_LIN2 - LIN 
Z_BOLEAN3 » .T. 
endi 

endi 

next 

* Se foram achados todos parametros 
retira moldura das linhas originals 

* e cria comando 9 to ... com 
coordenadas da Moldura. 

if Z BOLEAN1 .and. Z_BOLEAN2 .and. 
Z_BOLEAN3 

for LIN a 1 to 24 

if Z_LIN1 == LIN .or. Z_LIN2 «« 

LIN 

Z_SPC a ( Z_COL2 - Z_C0L1) + 

1 

LINHASCLIN] a 
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IBPK 



SUCESSOS EDITORIAIS 




DERFLER JR./FREED, GUIA PC 
MAGAZINE DO WINDOWS PARA 
WORKGROUPS - 324 PAGS 

Guia para obtenpao de tnformapoes so- 
bre instalapao, recursos para grupos de 
trabalho e compatibilidade. Para usua- 
nos, gerentes e admimstradores de sis- 
temas. 

Cod: 1 - Prepo: CR$ 14.400,00 



PC MAGAZINE, DESVENDANDO O 
DOS 6 - 676 PAGS 

Este livro baseia-se no mesmo tipo de 
treinamento utilizado com sucesso 
nos estabelecimentos de ensino da 
PC Learning Labs, espalhados nos 
Estados Unidos. Atraves de disquete 
com exemplos incluido no livro, o feitor 
aprendera com o metodo mais facil, 
mais rapido e mais eficaz. 

C6d: 2- Prepo: CR$ 26.200,00 



SALEMI, GUIA PC MAGAZINE PARA 
BANCO DE DADOS 
CUENTE/SERVIDOR - 350 PAGS 

Atraves de explicates em linguagem 
clara e conselhos oportunos, o leitor 
encontrara as tecnologias existentes 
e emergentes para o objetivo de sua 
empresa. 

C6d:?~ Prepo: CR$ 18.200,00 



PC MAGAZINE, DESVENDANDO O 
MICROSOFT ACCESS - 576 PAGS 

Obra mais completa em nosso idioma 
sobre este novo produto da Microsoft. 
Ja apresenta os comandos em portu- 
gues, incluindo um disquete com inu- 
meros exemplos. 

C6d:4- Prepo: CR$ 27.300,00 




IBPI, DOS 6 

METODO RAPIDO - 120 PAGS 

Guia essencial para iniciantes e indis- 
pensavel para quern ja o utiliza. Re- 
cheado de dicas basicas e explicapoes 
praticas e objetivas. 

Cod: 5- Prepo: CR$ 7.200,00 



IBPI, WINDOWS 3.1 
METODO RAPIDO - 108 pAgs 

£ um guia rapido e eficiente, ideal para 
iniciantes neste novo ambiente opera- 
cional, e indispensavel para quern ja 
conhece e deseja tirar duvidas de for- 
ma clara, objetiva e rapida. 

Cod: 6- Prepo: CR$ 7.200,00 



IBPI, EXCEL 4 

METODO RAPIDO - 120 pAgs 

Esta obra mostra ao leitor os recursos 
do programa, estudando casos reais e 
que poderao ser usados no dia-a-dia 
de sua atividade e como base para o 
desenvolvimento de trabalhos mais 
complexes. 

C6d: 7 - Prepo: CR$ 7.600,00 



IBPI, WORUSBR WINDOWS 2.0 
METODO RAPIDO - 200 pAgs 

Amplamente ilustrado, este livro forne- 
ce dicas bSsicas e explicapoes pr&ti- 
cas e objetivas para os usu&rios deste 
excepcional editor de textos. 

C6d: 8- Prepo: CR$ 10.500,00 



L. 




r|| 






CONECnVIOADf 




DE BANCOS 


■ 


DE DADOS 
EMPRESARIAIS 


wm 


.t Owve para 
HpliciKoes Empre&sHatS 


m 


\ ik> Desktop 


s 


1 MM 


J* 




... f ......... 


j 


« 


^-Sotarn 



SIM! Desejo adquirjr os livros abaixo relacionados. Sendo assim, envio cheque nominal a 
Livraria e Editora Infobook S.A., no valor total do pedido. Despesas postais por conta da editors. 
Enviar seu pedido para: Rua Washington Luiz, 09 Gr. 402 - Rio de Janeiro - RJ - Cep. 20230-900. 




HACKATHORN, CONECTIVIDADE 
DE BANCOS DE DADOS 
EMPRESARIAIS - 352 PAGS 

Este importante livro fomece uma ava- 
liapao completa dos bancos de dados 
heterogeneos entre corporapoes, com 
enfase especial na distribuipao de apIL 
capoes empresariais para o desktop. 
C6d: 9- Preco: CR$ 16.800,00 



Valor Total do Pedido: CR$ 

Nome: 

Telefone: 

Empresa: 

C.G.C.: 

Enderepo: 

Cep: Bairro: 

Data: / / 



Validade ate: 20/04/94 














Gente, o camaval aqui no Rio foi b£rbaro. Sol de 40 
gratis na sombra f das 6 da manha &s 6 da tarde. J£ estou 
revendo minha reivindicagao de ficar perto da janela, por um 
release mais atual: perto do ar condicionado nao seria de todo 

ruim. 

Meu fa clube que me perdoe (nao adianta escrever para 
a revista pedindo fotos), mas nao deu para avisar que iria 
desfilar numa das alas da Portela. Sorry, fica para uma prbxima 

vez (guardem os ovos e tomates). 
Semana passada recebi carta do meu primo Tim 
Raster, que mora nos states. Ele mandou avisar que VGA 6 coisa 
do passado e o quente na terra do Tlo Sam sao as placas Hl- 
Color. Dezesseis milhoes de cores simultaneas na tela do seu 
monitor. 6 pouco? entao segura essa: essas placas custam a 
mesmissima coisa que uma VGA tradicional. No m£ximo uns 10 
dolares a mais. Agora estou entendendo o desaparecimento do 
chefe por tres semanas. Ele disse que tinha recebido uma nova 
placa de video (arrS, vem coisa por at...). 
Mas, voltando ao nosso mundo em preto e branco, o 
Joao Marcos Valadares, de Recife, mandou um Tcone esperto. Tat 
Joao, seu Tcone sai nesta edigao. Pode mandar mais, que a 

gente publics. 

0 Paulo Botelho escreve, la de Porto Alegre, e pergunta 



sobre image ns coloridas. Olha Paulinho, nao d£ para fazer uma 
segao Bitmap com imagens coloridas numa revista 
monocromcitica, nem mesmo numa revista colorida isto seria 
posslvel (ou seria pelo menos muito complicado). Para 
solucionar este problems, estive com o pessoal da PRO KIT e 
juntos estamos bolando um Bitmap em disquete, totalmente 
em cores e tao udigrudi quanto este aqui. Isto deve ocorrer em 
breve, entao fique antenado na MS. 
Nossa promogao ainda estci de p6. S6 para refrescar a 
mem6ria: as primeiras 30 cartas com desenhos & trago e com 
a frase "EU AMO BITMAP" receberao um PRO KIT topview 
especialmente projetado para digitar as animagoes desta nossa 
amada segao. Aqui estao novamente os requisitos: 

- 0 PRO KIT topview s6 roda em PC/VGA 256Kb/Mouse; 

- Os desenhos nao podem ter mais que 10 x 10 6m; 

- Devem ser enviados diretamente para a PRO KIT - Caixa 

Postal 108.046 - Cep 24121-970 - Niteroi/RJ 
- As cartas deverao chegar ate o dia 30/04/94. 

Bob Pixel 



> Clube de Apple com Jomal em Diskette mensat 
0 4000 Softwares para Imha Apple e IBID: 

° Assistencia Tecmca Alicrodigital/Teleuolt:SX> v 
° loda Imha de Penfencos com enuio imecbato: 

° (lienor preqo e garantia total. s6 aqui !!! 

Club* de Utuarios: 







VocO poderd confer com toda nossa acessoria para programas da linha Apple (TK3000, Unitron, Spectrum Ed e 
compativeis). Voc6 recebefe mensalmente o Jomal em Diskette, o "Apple Van News" com muitas maferias, dices 
e duvidas de nossos associados. Valor da Trimestralidade: CR$ l2.000iCaso seja seu interesse em entrar em 
nosso clube, envie-nos cheque nominal a "Mapfi Shop's Eletrdnica Ltda" juntamente com seus dados, voc6 recebefe 
imediafemente o jomal em diskette e a ficha de inscriQdo para voc6 preencher. 



Software*: 

Pega gratuitamente o nosso Cafelogo de domfnio publico para linha Apple ou IBM , nele voc6 encontrafe toda relagfio 
de Softwares e Hardwares, lembre-se de especificar qual o modelo de seu computador (Apple: TK3000 ou Apple II+, 
IBM: XT ou AT). Enviaremos o mais fepido posslvel para vocd efetuar sua encomenda. Valor do Diskette gravado: 
a partir de CR$ 700,00. Temos as ultimas novidades I Confira e pega-nos hoje mesmo atravOs de carta ou Fax: 

Appl* Shop* a Club* - Telefone: (021) 287-0810 - Fax: (021) 287-0993 

Rua Visoonda da PlrajA 82 Subsolo 209- ipan— a - CEP:22410-000 - RJ 







5 6 

ANIAAAgAO 

Brrrrrr!!!!! DS at 6 medo, mas vamos 
la. Nesta edigao apresentamos (eu e 
eu) uma animagao do alien. £ isso 
mesmo, daquele monstro babao do 
cinema. A nave Nostromo nao cabe na 
pagina e a belezoca da S.W. pediu os 
tubos (em notas verdinhas) para ter 
sua pl&stica reproduzida nesta 
fantastica coluna. Entao, o jeito foi 
apelar para o monstro, que nao esta 
nem af pros baboes daqui. 

Sao se is shapes e a an imagao e das 
mais simples. E s6 seguir o roteiro. 




Jjyh 
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Para quern esta cansado 
daquela seta manjadfssima, aqui 
esta uma opgao bem cnativa. Ela 
veio do nosso leitor Marcos 
Valadares, de Recife. 

Se voce tern algum desenho 
diferente de fcone, para o cursor do 
mouse, nao perca mais tempo e 
mande para a redagao de Micro 
Sistemas Se o seu fcone for in&dito, 
n6s o publicaremos aqui na segao 
BITmap. 
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Se seu 
problems e a 
portabilidade 
de programas 
executaveis e 
arqulvos de 
dados... 
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APUCAOOES COMERCIAIS. 



STANDARD MUNDIAL 

- 255 chaves de acesso direto 

- Criagao de Pop-up Windows 

- Leitura "Up & Down” de arquivos 

- Estrutura Client-Sever LAN e RDBMS 

- Mais de 2.000.000 Sistemas em uso 

RM/PANELS 

Gerador Automatico de Telas 
Sistema WYS/WYG 

RM/COMPANION 

Gerador Automatico de Relatorios 

- Gera Programa Fonte 

- Gera Querys ao Usuario Rnal 

RM/GRAPHS 

Gera Graficos de negocios 

- 2D/3D 

- Definigao Automatica de Cores 

RM/CO« 

Ambiente de Desenvolvimento, com editor Janela multipla 
e Desenho Animado 

RM/TOOLKIT 

Familia de Utilitarios 

- Mouse, Modem, Sistema Operacional, etc. 

RM/plusDB 

Interface Transparente com Banco de Dados Relacionais 

- Informix*, Oracle*, Progress*, etc. 

Mantem o Padrao dos Sistemas Abertos reduzindo seus 
tempos de programagao em 80% 

DESENVOLVIMENTO DE APUCAQOES 

Quando voce precisa de ferramentas para o desenvolvimento 
de aplicagoes superiores ao mercado, capacidade & 
funcionalidade & solugao do RDBMS & superior a 4GE RM/ 
COBOL & TOOL’S sao incomparaveis. 

Ferramentas de Desenvolvimento &Su perficles de Trabalho 

0 RM/Cobol possui um poderoso conjunto de ferramentas 
integradas para definir e construir aplicagoes tais como: 
Menus Ring-Style, Pop-Down & Pull-Down, e ainda Dialog 
Boxes , Forms e Objetos para desenvolvimento de Apl icagoes 
RM/Cobol, oferece maior capacidade e fiexibilidade para o 



E o unico caminho! 

desenvolvimento, reduzindo o tempo de manutengao e 
possibilitando uma consistente interface com o usuario. 
Superficies de Trabalho sao interfaces funcionais que 
permitem definir regras de integridade e de negocios. 
Somente o RM/Cobol possui um desenho de interface 
altamente visual e amigavel , possibilitando uma fantastica 
melhoria na produtividade do desenvolvimento de telas, 
estando bem acima dos metodos de codigos convecionais. 
0 Help on line esta sempre presente para consulta. 

Diclonarlo de Dados 

0 Dicionario de Dados do RM/Cobol e um repositario 
central para definir toda e qualquer informagao usada na 
tela como: Borda, Lay-Out, Cores, Formato dos campos, 
Valiagoes Logicas, Help on line, Mensagens de Ajuda e 
Erro, Prompt de cores campo a campo, e mais. Desta forma 
voce ganha um controle de integridade de dados altamente 
eficiente, com vantagem adicional de uma reduzida 
codificagao. 

Abertura para outros amblentes 

0 RM/Cobol pode acessar outros Bancos de Dados como: 
INFR0MIX, ORACLE e no final deste anos PROGRESS, 
INGRESS, pode acessar outras linguagens, atraves de 
"CALL” nas subrotinas. 0 "APLICATION PROGRAM INTER- 
FACE” permite criar subrotinas novas fungoes escritas em 
"C” e Assembler, o que possibilita inclusive acesso a outras 
bases de dados. 



AData 



Representante para Brasil, Argentina, Paragual e Urugual 

ENDEREQO NO BRASIL 

A v. BRIG. FARIA LIMA, 613 - 8 a ANDAR CJ 84 
01451-000 - SAO PAULO - SP 
TEL/FAX: (Oil) 829-7891 

ENDEREQO NA ARGENTINA 

Av. CORRIENTES, 821 - 6 a ANDAR (1043) 

BUENOS AIRES 

TEL.: (541) 448-9426/7/8 - FAX: (541) 447-2363 





CARTAS 



PAINEU^D 



J^TPossuo um 486 DX 40 
monitor SVA color e 
HD de 360 Mb. Sou formado em 
an£lise de sistemas pela 
PUCMG, mas curto bastante um 
jogo que me desafia. 

No momento o obstSculo a ser 
vencido 6 o jogo "Indiana Jones 
Fate of Atlantis” no qual me vejo 
a cinco semanas no labirinto de 
Creta, estando qom as tres 
pedras chaves e todos os outros 
itens necessArios (tenho quase 
certeza) mas nao consigo achar 
(ou fazer) um tal de detector de 
orichalcum nem a parede ser 
escavada com o “ship rib”, o 
que para o meu desespero 6 
vital para o prosseguimento do 
jogo!! S6 n6s que curtimos uma 
boaaventura“ala” Indiana Jones 
sabemos do magnetismo que 
ela exerce. 

Marc I us Dlnte Gulmaraes Jr. 

Cx.Postal 11-CEP.:35680000 
Itauna - Minas Gerais 

[V/Fossuo um 386 com 

«^r» VGA e gostaria de 
entrar em contato c/ leitores 
que tenham os jogos Elite, Elite 
Plus ou A-10 Tank Killer 1 ou 2, 
e tambem para troca de jogos e 
aplicativos em geral. Peqo se 
possivel que envie lista de softs 
para agilizar a troca. 

Alex. T. Medeiros 
R. Marechal Floriano Peixoto 1370 
Sao Lourenso do Sul • RS - 96170000 

l^Tpumpre-me como leitor 
Jlesta conceituada 
revista elogiar a I inha de trabalho 
efetuada por seus edi tores. 
Escrevo-lhe para solicitar a 
di vulgagao do PASCLUBE, Clube 
de Usuirios de Pascal. Estamos 
form an do este clube para que 



i^n 



I 




rr«[H>Ti 







m 



m 









CIENCIA NOVA 

IPS 

\m 



li 



«»§* 

* _ ' -P 

. , . ■ /...l- . 



. - . * 

LIVRARIA 





1111 ... 

* Despachamos p/todo o Brasil 
^||fP * Remessas feitas por reembolso Postal 









Para pequenas empresas que 
i procuram grandes programas. 

Se voce e profissional liberal, micro, pequeno ou medio empresdrio, nao perca o 
I Salao de Desenvolvimento de Softwares. Um evonto quo vai acontocor durante a 
IV Foira Pochmcha ■ Informdtica, no Pavilhao da Bienal, Ibirapuora. 

E que tern tudo o que voce precisa para informatizar e melhorar sous negocios. 

• Empresas especializadas em cria;ao de programas para diversas atividades 

profissionais. 

| • Assessoria para implantaffio de sistemas. 

* * Orientaffio para compra de equipamentos. 

• Softwares especificos para direito, medicina, arquitetura, contabilidade, 

gerenciamento e outras areas. 

• Reunifies, palestras e encontros do seu interesse. 

I Alem disso, voce conta com outra grande vantagem: equipamentos e suprimentos 
financiados em 6/12 vezes pela Caixa Economica Federal. Produtos das melhores 
» _ marcas e para pronta-entrega a prefos abaixo das lojas. 

I Salao de Desenvolvimento de Softwares. Entrada franca. Nao perca este programa. 



INFORMACOES 

(oii)530-1800 

Apoio: 

SEBRAE 

SP 

ServicodeApoioas 

Micro 0 Pequenas Empresas de 

SooPouio 

NUMERO LIMITADO 
DE ESTANDES 






r pea 

(CHIN) 

\CHA/ 

INFORMATICA 



22 A 26 
DE MAR 



ARCO 

NAL 



BIE 

IBIRAPUERA 

^Ai'DAS IJAJ22K 
SAMftO DAS 10 AS 22 h 



Realiza?ao: 

ROSA & MIZOGUCHI MARKETING 



EDITORA 




VAI COMEQAR A RODADA 

1994 



PARTICIPE COM A SUA OPINIAO: 

ELA VALE DUAS ASSINATURAS ANUAIS DA 
REVISTA MICRO SISTEMAS 

Responda as questoes de acordo com a sua preferencia. No caso de usar mats de um programa de mesma classe, 
escolha apenas aquele que julga mais adequado para o seu uso. Nao importa a origem do software: Escrevade 
forma clara e legivel o nome do programa. Remeta para: ENTER PRESS Editora Ltda. - Rua Wash inton Luis, 9 - Cr.402 
- Rio de Janeiro - RJ - CEP: 20230-900. 



NOME: 

ENDEREgO:. 

Cl DADE: 

MICRO: 



UF: 

.VIDEO 



CEP: 



PROCESSADOR DE TEXTO:. 
PLAN I LH A ELETRONICA:. 



LINGUAGEM DE PROGRAMA:. 
UTILITARIOS: 



SISTEMA OPERACIONAL:. 
ANTI-VIRUS : 



COMPACTADOR: 

EDITOR GRAFICO: 

DESKTOP PUBLISHING: 
CAD / EDITORES 3D:_ 

JOGO 1 : 

JOGO 2: 

OUTRO: 



DISQUETE: MELHOR: 



PIOR: 



66 MICRO SISTEMAS 




FENASOFT 
E BRASH. 



Em novembro de 1993, revislas e jornais dos Estados Unidos, 



Japao, Italia, Franga, Alemanba, Argentina, Uruguai, Canada, 



Singapura, Tailandia, Coreia, Espanba e Portugal publicaram 



mateiias sobre a 7 B Fenasoft e seu significado no mundo da alta 



tecnologia. Nos, da Fenasoft, ficamos, evidentemente, muilo 



orgulhosos. Por nos e por nossos expositores, que sdo, sem duvida, 



os grandes responsaveis por esse belissimo resultado. E, ao ler em 



tantas Itnguas diferentes o sucesso da nossa Feira, tivemos uma 



ceneza: Fenasoft e tecnologia, Fenasoft e Brasil. 



|F| FencooFt 

AlLLJ FMTKIMKftS, < (VtXTOS UM 



19 a 22 deju lb o — An b e mb l — S Ho Paulo 



Matrix FloriantipoUs: Av. Ostnar Cunba, 251 

Cep 8801 5- 100 — Fiona nopolis - SC 

Pabx. (0482) 24-4305— Fax: (0482) 23-5249 

Filial Sdo Paula : Rua Hungria, 674 

Cep 01455-904 — Sdo Paulo - SP 

Pabx: (01 1) 815-401 1 — Fax: (01 1) 212-0381 

Filial Rio de Janeiro: R. Sen. Dantas, 117/S1102 

Cep 2003 1-201 — Rio de Janeiro - RJ 

Fone/fax: (021) 240-51 16 

Filial Miami 3250 Mary Street Suite 205 

Miami -Florida -33133 

Tel.: (305) 446-3041 — Fax: (305) 446-3815 



Circule o n Q 031 no Direct Link Card 






PORTAVOZ 



Aten9ao senhorespassageiros com 
destinoao futuro. Queiramretirar 
seu cartao de embarquee boa viagem, 



Fcnci^oFt 

WOLF RONN ESTON 

6ERENTE OPERACIONAL 

FENASOFT ADM . PAR . EVE . LTDA 
Av. Pref. Osmar Cunha 251/9and 
Florfanopolis 
SC 88015 




116132256 



E 



Solicite,ate 30 de abril, gratis , o seu cartao. 

Com ele voce embarca sem filas na Fenasoft rumo ao futuro. 
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Jd comegou a contagem regressiva para o initio da maior feira 
de informatica do mundo: Fenasoft 94, de 19 a 22 de julho no 
Anhembi , Sao Paulo. Foram 800 mil visitantes no ano passado. Em 
94, serao mais ainda. 

Garanta desde jd o seu livre acesso, sem filas nem contratempos, 
solicitando o seu cartao Fenasoft. 

Ele e totalmente gratis se pedido ate 30 de abril e pode ser 
enviado para o enderego que voce determinar. Basta preencher o 
cupom abaixo e remeter para a Fenasoft por correio ou fax. 





Cartdes de anos anteriores sao validos para a Fenasoft 94. 
Solicitagoes feitas apos 30 de abril so serao atendidas mediante 
pagamento de taxa de US$ 2 (ate 3 1/mai), US$ 3 (ate 30/jun) e 
US$5 (ate 22/jul). Se voce jd possui o seu cartao Fenasoft e, por 
algum motivo, deseja troca-lo, deve enviar junto com o pedido uma 
taxa de US$ 5. 

( Qualquer pagamento devera ser efetuado por cheque nominal a 
FENASOFT Participagoes, Administragao e Eventos Ltda. pelo 
valor do dolar turismo do dia do envio do mesmo). 
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TELEFONE 

n~m on mo 

DATA DE NASCIMENTO 

m m o 



^£no\°S 

FENASOFT PARTKIFACOIS, ANA1NISTRA(A0 E EVENTOS LTDA 
AV. OSMAN CUNHA, 2S1 • 9* ANDAR • CENTRO 
CEP: SAO 15-100 - F10RIAN6P01IS • SC 
TEE: (0402) 24.4305 • FAX: (0402) 23.5249 

Convites enviodos por fox so serao aceitos se forem legfveis. 

E proibida a entroda de menores de 1 6 anos. 







1 - Qual seu cargo na empresa onde trabalha? 




A 




Presidente 


E 


_ Diretor Superintendente 


1 [ 


_ Representante de Vendas 


A 


B 




Vice-Presidente 


F . 


_ Gerente de Departamento J . 


_ Analista de Sistemas 


B 


C 




Sdcio 


G . 


_ Controller/Tesoureiro 


K L 


J Digitador 


C 


D 


- 


Gerente Geral 


H 


J Consultor/ Assessor 






D 






2 - Quantos empregados tern sua empresa? 


E 

F 


A 




Mais de 5000 


E 


D 250 a 499 


1 c 


D 25 a 49 


G 


B 




1000 a 5000 


F . 


_ 100 a 249 


J . 


. 10 a 24 


H 


C 




750 a 999 


G . 


. 75 a 99 


K . 


. 5 a 9 




D 




500 a 749 


H L 


D 50 a 74 


L L 


_ Menos de 5 








3 - Qual seu poder de decisdo para compras na empresa? 


A 


A 1 


□ 


Autoridade total 


C LD Autoridade limitada 


E LJ Pouco envolvimento 


B 


B 1 


□ 


Autoridade alta 


D El Recomenda produtos 


F lJ Nenhum envolvimento 


C 

D 






4 - Qual o volume de vendas de sua empresa? 


E 

F 


A 




US$ 500 mi hoes ou mats 


E L 


. US$ 25 a 49 milhoes 


1 _ 


D USS 500 a 749 mil 




B 




US$ 1 00 a 499 milhoes 


F . 


. US$ 10 a 24 milhoes 


J . 


. USS 250 a 499 mil 




C 




US$ 75 a 99 milhoes 


G . 


] US$ 1 a 9 milhoes 


K C 


D USS 100 a 249 mil 




D 




US$ 50 a 74 milhoes 


H L 


D USS 750 a 999 mil 


L _ 


D menos de USS 1 00 mil 





5 - Qua I a principal area de atuaqao de sua empresa? 



E Govemamental I E Educational 

Agriculture), Mineragao, Petr6leo J jE Industrial 
__ Transportes 
E Comunicagao 

E Ma nufatura M _l Revenda de Software 

L Finartceira / Contabilidade N E Fabricante de Hardware 
Seguros / Imobilidria O E Revenda de Hardware 

Mddica / Saude P El Fabricante de Perifaricos 



K ID Construgao Civil 
L El Fabricante de Software 



Q ID Revenda de Per'ifdricos 
R E Fabricante de Suprimentos 
S J Revenda de Suprimentos 
T J Bureau de Servigjs 
U E Grdfica 
V E Jomalismo 
WEI Editora 



6 - Quais as principal aplicaqoes do computador na sua empresa? 

□ Contabilidade G □ Desenv. de aplic. de programas 



I Comunica^do 

) Gerenciamento de Bco. de Dados 
I Correio Eletrdnico 
I Desk Top / Cad Cam 
I Design Grafico / Multimfdia 



H El Controle de processo / manufatura 
I Q Centifica / Engenharia 
J EJ Editor de Textos 
K El Gerenciamento de Processos 



